Napisanie programu który sprawdzi czy podany rok jest zwykły czy przestępny wymaga jedynie znajomości reguły matematycznej, która brzmi następująca: "Jeśli rok dzieli się przez 4 a nie dzieli przez 100, to jest on przestępny". kompletny kod źródłowy programu wygląda następująco:
Program rocznik;
uses crt;
var rok:integer;
function sprawdz(rok:integer):string;
begin
if (rok mod 4=0) and (rok mod 100<>0) then
sprawdz:='przestepny'
else
sprawdz:='zwykly';
end;
begin
clrscr;
Write('Podaj rok: ');
Readln(rok);
Write('Rok ktory podales to rok ',sprawdz(rok));
readkey;
end.
Przeczytaj podobne teksty
Treść zweryfikowana i sprawdzona
Zgodnie z misją, Redakcja serwisu dokłada wszelkich starań, aby dostarczać rzetelne i sprawdzone treści edukacyjne.
Dodatkowe oznaczenie "Sprawdzona treść" wskazuje, że dany materiał został zweryfikowany przez Redakcję lub ekspertów współpracujących z serwisem.
Weryfikacja tekstu odbywa się na następujących poziomach:
1. Sprawdzenie tekstu pod kątem ewentualnych błędów ortograficznych, stylistycznych, interpunkcyjnych lub innych.
2. Weryfikacja tekstu pod kątem błędów rzeczowych.
3. Sprawdzenie materiału pod kątem ich aktualności.
Dodatkowe oznaczenie "Sprawdzona treść" wskazuje, że dany materiał został zweryfikowany przez Redakcję lub ekspertów współpracujących z serwisem.
Weryfikacja tekstu odbywa się na następujących poziomach:
1. Sprawdzenie tekstu pod kątem ewentualnych błędów ortograficznych, stylistycznych, interpunkcyjnych lub innych.
2. Weryfikacja tekstu pod kątem błędów rzeczowych.
3. Sprawdzenie materiału pod kątem ich aktualności.