Ребят не втыкаю что тут, да и как
ИНФОРМАТИКА, 7 КЛАСС​

arladich arladich    2   19.02.2020 20:21    2

Ответы
denis20043601 denis20043601  11.10.2020 09:38

Объяснение:

program z1n1;

var x,y:real;

begin;

writeln('введите x');

readln(x);

if (x>0) then begin

y:=x;

writeln('y=',y);

end;

if (x<=0) then begin

y:=1/x;

writeln('y=',y);

end;

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика