Napisać program, który wczyta ze standardowego wejścia liczbę naturalną r oznaczającą rok i wypisze TAK jeśli rok jest przestępny, NIE- jeśli nie jest. Powiemy, że rok jest przestępny, gdy jego wartość jest podzielna przez \(\displaystyle{ 4}\). Jeśli jednak jego wartość dzieli się przez \(\displaystyle{ 100}\), a nie dzieli się przez \(\displaystyle{ 400}\), to rok nie jest przestępny.
Z góry dzięki za pomocne odpowiedzi!
[Pascal] Przestępność roku
-
- Użytkownik
- Posty: 14
- Rejestracja: 17 lip 2009, o 16:13
- Płeć: Mężczyzna
- Podziękował: 1 raz
[Pascal] Przestępność roku
Ostatnio zmieniony 8 gru 2012, o 10:35 przez Afish, łącznie zmieniany 1 raz.
Powód: Poprawa wiadomości.
Powód: Poprawa wiadomości.
-
- Użytkownik
- Posty: 34
- Rejestracja: 30 wrz 2012, o 13:52
- Płeć: Mężczyzna
- Lokalizacja: Legnica
- Podziękował: 1 raz
- Pomógł: 4 razy
[Pascal] Przestępność roku
Tutaj masz funkcję sprawdzającą czy rok jest przestępny i dopisz to co trzeba
Kod: Zaznacz cały
function przestepny(x:word):boolean;
begin
if x mod 4 = 0 then przestepny := true else
przestepny := false;
if x mod 100 = 0 then
if x mod 400 = 0 then przestepny := true else
przestepny := false
end;