PASCAL rok przestępny czy nie ??:)


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

		Forum CDRinfo.pl > Różne > Off topic
PASCAL rok przestępny czy nie ??:)

Off topic Forum poświęcone wszelkim innym tematom.

Witaj Nieznajomy! Zaloguj się lub Zarejestruj

Zarejestrowani użytkownicy mają dostęp do dodatkowych opcji, lepszej wyszukiwarki oraz mniejszej ilości reklam. Rejestracja jest całkowicie darmowa!

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--->

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

Twoje uprawnienia:
Nie możesz rozpoczynać nowych tematów Nie możesz odpowiadać w tematach Nie możesz umieszczać załączników Nie możesz edytować swoich postów BB code są Włączone Emotikonki są Włączone Kody [IMG] są Włączone Kody HTML są Wyłączone Regulamin Forum

Teleport

Wszystkie czasy w strefie CET. Aktualna godzina: 01:23.