Электронная тетрадь Нарской Александры
понедельник, 20 апреля 2015 г.
№2
Program one:
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.
Комментариев нет:
Отправить комментарий
Следующее
Предыдущее
Главная страница
Подписаться на:
Комментарии к сообщению (Atom)
Комментариев нет:
Отправить комментарий