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

Question

Линя

26 ноября, 01:14

+1

Ответы (2)

Знаете ответ на вопрос?

Поликарпий · Answer 1

Var

x, y:real;

Begin

Writeln ('Введите значение x: ') ;

Readln (x) ;

y:=2/x;

Writeln ('Значение y: ', y) ;

End.

Артемидка · Answer 2

Program fa;

var x:real;

begin

read (x) ;

writeln (2/x) ;

end.