Hej, mam rozwiązać 2 zadania ze szkopuła, jedno to zadanie minimalna i kod, który mam przechodzi na 80/100 nie mam pojęcia dlaczego. Może ktoś będzie wiedział.
program minimalna;
var
a, b, c: LongInt;
begin
readln(a);
readln(b);
readln(c);
if (b > a) and (c > a) then
writeln(a);
if (a > b) and (c > b) then
writeln(b);
if(a > c) and (b > c) then
writeln(c);
readln();
end.
Przechodzą wszystkie testy, oprócz dwóch i następujące komunikaty:
1 wczytano EOF, a oczekiwano '-3'
7 wczytano EOF, a oczekiwano '0'
Drugi program to równanie liniowe , w którym uzyskałem max 70/100, wydaje mi się, że uwzględniłem wszystkie warunki spełnienia równanie liniowego
program RownanieLiniowe;
var
a, b: LongInt;
begin
readln(a, b);
if (b = 0) and (a = 0) then
writeln('NIESKONCZONOSC')
else if (b = 0) and (a <> 0) then
writeln(1)
else if (a = 0) or (b <> 0) then
writeln(0)
else if(b mod a = 0) then
writeln(1);
readln;
end.
Błędy:
4 wiersz 1: wczytano '0', a oczekiwano '1'
5 wiersz 1: wczytano '0', a oczekiwano '1'
7 wiersz 1: wczytano '0', a oczekiwano '1'