PASCAL rok przestępny czy nie ??:)

wolfen3 · 03.04.2005, 17:37

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.

qfir · 03.04.2005, 17:48

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

03.04.2005, 17:37	#1
wolfen3 Madafaker Data rejestracji: 08.08.2004 Lokalizacja: Wałbrzych/Wrocław Posty: 498	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. __________________ <---nie ważne co wam mówią, ale pamiętajcie, cukru nigdy za dużo--->


	Nagrywarki \| Pliki \| Dyski twarde \| Recenzje \| Księgarnia \| Biosy \| Artykuły \| Nagrywanie od A do Z \| Słownik \| FAQ

	#ads
CDRinfo.pl Reklamowiec Data rejestracji: 29.12.2008 Lokalizacja: Sieć globalna Wiek: 31 Posty: 1227

03.04.2005, 17:48	#2
qfir _____________________ Data rejestracji: 03.01.2005 Posty: 714	u mnie dziala, czyli wychodzi na to, ze jest poprawny