Program First:
Var x,y,F:real;
Begin
Writeln('vvedite x,y');
Readln (x); readln(y);
If x>0,y>0 then
Begin
F:=1;
end;
Else
Begin
F:=0
end;
Writeln ('x=','y=','F=');
Readln;
end.
Var x,y,F:real;
Begin
Writeln('vvedite x,y');
Readln (x); readln(y);
If x>0,y>0 then
Begin
F:=1;
end;
Else
Begin
F:=0
end;
Writeln ('x=','y=','F=');
Readln;
end.
Комментариев нет:
Отправить комментарий