Topics

Zostavte program pre výpočet a tlač hodnoty y=x/x-3 .hodnota x vystupuje z klavesnice.

program funkcia;
var
x:real;
y:real;
begin
write('zadaj x');
readln (x);
if (x <>3) then y=x/x-3;
writeln ('vysledna hodnota funkcie y',y:5:2);
readln;
end.