Ответы
Ответ дал:
1
var y,x: real;
begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.
begin
readln(x);
if x=0 then writeln('решений нет')
else begin
y:=1/x;
writeln(y)
end;
end.
Ответ дал:
0
//PascalABC.NET
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.
//Версия 3.3, сборка 1634
begin
var x:=ReadReal;
if x=0 then write('нет решений') else write(1/x);
end.
Похожие вопросы
1 год назад
1 год назад
1 год назад
1 год назад
2 года назад