1. С клавиатуры вводится число Х. Найти значение y=1/X.

Question

1. С клавиатуры вводится число Х. Найти значение y=1/X.

Answer 1

Program chik;
var x,y:real;
begin
readln(X);
if(x<>0)then begin
y:=1/x;
writeln(y);
end;
if(x=0)then writeln('FALSE');
end.