Program four;
var x,y,F:real;
begin
writeln('vvedite x,y');
readln (x,y);
If x>0,y>0
then F:=1;
else F:=0
writeln(F);
readln;
end.
var x,y,F:real;
begin
writeln('vvedite x,y');
readln (x,y);
If x>0,y>0
then F:=1;
else F:=0
writeln(F);
readln;
end.
Комментариев нет:
Отправить комментарий