Witam, już trochę siedzę nad tym i już sam nie wiem co jest nie tak, potrzebuje porady może ktoś pomoże,
zadanie pochodzi ze strony https://szkopul.edu.pl/problemset/problem/MJd-k0bS1ut1mRh1qA-_QBhQ/site/?key=statement
według testera mam 60%
błędy pokazane na testerze
1 wiersz 1: wczytano '1', a oczekiwano '0'
2 wiersz 1: wczytano '1', a oczekiwano '0'
6 wiersz 1: wczytano '1', a oczekiwano '0'
8 wiersz 1: wczytano '1', a oczekiwano '0'
oto mój kod:
var a, b : real;
begin
read (a,b);
if (a <> 0) then
begin
writeln ('1');
end
else if (b = 0) then
begin
writeln ('NIESKONCZONOSC');
end
else writeln ('0');
readln;
readln;
end.