Вычислить y=1/x если при x=0 решений нет

валериялера2 валериялера2    2   21.09.2019 09:00    3

Ответы
arturk13 arturk13  21.08.2020 12:49
Var y,x: real;

begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Kill111111111111 Kill111111111111  21.08.2020 12:49
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика