Forum CDRinfo.pl - PASCAL rok przestępny czy nie ??:)

Forum CDRinfo.pl (https://forum.cdrinfo.pl/)

- Off topic (https://forum.cdrinfo.pl/f5/)

- - PASCAL rok przestępny czy nie ??:) (https://forum.cdrinfo.pl/f5/pascal-rok-przestepny-czy-nie-50614/)

qfir	03.04.2005 17:48

u mnie dziala, czyli wychodzi na to, ze jest poprawny

wolfen3

03.04.2005 17:37

PASCAL rok przestępny czy nie ??:)

Czy ten kod jest poprawny ??

var rok:integer;
result:boolean;
function TDataPrzestepny: Boolean;
begin
readln(Rok) ;
if ((Rok mod 4 = 0) and (Rok mod 100 <> 0))
or (Rok mod 400 = 0)
then Result := TRUE
else Result := FALSE;
end;
begin
tdataprzestepny;
writeln(result);
readln;

end.

Wszystkie czasy w strefie CET. Aktualna godzina: 14:58.