Написать программу вычисления значения выражения у=2/х в Паскале 

Ответы

Ответ дал: Аноним
0
program fa;
var x:real;
begin
read (x);
writeln (2/x);
end.
Ответ дал: Leonid009
0
Var
x,y:real;
Begin
Writeln('Введите значение x: ');
Readln(x);
y:=2/x;
Writeln('Значение y: ',y);
End.
Похожие вопросы