Witam,
Napisałem program jednak nie działa on prawidłowo tak jak wymaga polecenie zadania. Czy mógłby ktoś pomóc mi znaleźć błąd w moim kodzie programu?
Zadanie napisał(a)
Przestępność
Limit pamięci: 32 MB
Mamy dany rok . Powiemy, że rok jest przestępny, gdy wartość jest podzielna przez 4. Jeśli jednak wartość dzieli się przez 100, a nie dzieli się przez 400 to rok nie jest przestępny. Zadaniem Twojego programu jest stwierdzenie czy dany rok jest przestępny.
Zadanie
Napisz program, który:
wczyta ze standardowego wejścia liczbę naturalną oznaczającą rok,
wypisze TAK jeśli rok jest przestępny, albo NIE jeśli nie jest.
WejścieJedna liczba naturalna oznaczającą rok.
Wyjście
W jedynym wierszu wyjścia należy wypisać TAK jeśli rok jest przestępny, albo NIE jeśli nie jest.
Przykład
Dla danych wejściowych:
1066
poprawną odpowiedzią jest:NIE
O to mój kod programu, który napisałem:
uses crt;
var r: LongInt;
begin
readln(r);
if r mod 4 = 0 then
writeln('TAK')
else
if (r mod 100 = 0) and (r mod 400 < 0) then
writeln('NIE');
readln;
end.
dodanie znaczników <quote> i <code class="pascal"> - furious programming