Ответы
Ответ дал:
1
var
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.
x:intenger;
y:real;
begin
readln(x);
y:=1/x;
writeln(y);
end.
Ответ дал:
1
var x,y:integer;
begin
writeln('введите x');
readln(x);
y:=1/x;
writeln(y);
end.
если я правильно понял суть задания то так
begin
writeln('введите x');
readln(x);
y:=1/x;
writeln(y);
end.
если я правильно понял суть задания то так
Похожие вопросы
1 год назад
1 год назад
1 год назад
6 лет назад
8 лет назад