Question

написать программу к задаче: с клавиатуры вводится число. Найти значение y по формуле: y:=1/x.

Answer 1

Ответ:

Program nazvanie;

Uses Crt;

Var x: integer;

y: real;

Begin

write('Введите x ')';

read(x);

y:=1/x;

write('y = ', y);

end.

Объяснение: