Ocena użytkownikóww: ***** / 2
Nadesłany przez Tomasz Lubiński, 19 lutego 2008 01:00
Kod przedstawiony poniżej przedstawia główną część rozwiązania problemu.
Pobierz pełne rozwiązanie.Jeżeli nie odpowiada Ci sposób formatowania kodu przez autora skorzystaj z pretty printer'a i dostosuj go automatycznie do siebie.
lp.adb:
--
-- Obliczanie lat przestepnych
-- www.algorytm.org
-- (c) 2008 Tomasz Lubiński
--
with Text_IO;
use Text_IO;
procedure lp is
function przestepny(rok: Integer) return Boolean is
begin
return (((rok mod 4 = 0) and (rok mod 100 /= 0)) or (rok mod 400 = 0));
end;
rok : Integer;
begin
rok := 2008;
if przestepny(rok) = True then
Put_Line("Rok " & Integer'Image(rok) & " jest przestepny.");
else
Put_Line("Rok " & Integer'Image(rok) & " nie jest przestepny.");
end if;
end;