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.