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

Question

Корнелий

18 июля, 14:58

+3

Ответы (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.