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

Question

Линя

4 октября, 03:36

+3

Ответы (2)

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

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

Program fa;

var x:real;

begin

read (x) ;

writeln (2/x) ;

end.

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

Var

x, y:real;

Begin

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

Readln (x) ;

y:=2/x;

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

End.