Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
Aktív témák
-
Rover623
félisten
program DayOfWee;
var
ev,
ho,
nap : integer;
begin
{ezek az értékadások csak a példa kedvéért...inkább valami bekéréssel csináld!}
ev:=2005;
ho:=3;
nap:=2;
ho := ho - 2;
if (ho<=0) then begin
ho := ho + 12;
ev := ev - 1;
end;
case ( (nap + ( 13*ho - 6) div 5 + ev + ev div 4 - ev div 100 + ev div 400) mod 7 ) of
0: writeln('hétfő');
1: writeln('kedd');
2: writeln('szerda');
3: writeln('csütörtök');
4: writeln('péntek');
5: writeln('szombat');
6: writeln('vasárnap');
end;
end.primus inter pares
Aktív témák
Aktív témák
Új prémium hirdetések
- MacBook Pro 14 M3 Pro, Space Black, 18 GB RAM, 512 GB SSD Bontatlan
- Lenovo ThinkPad P70 Workstation, Mobil munkaállomás, 17" FULL HD IPS, Xeon E3-1505M V5 CPU, 32GB DDR
- -65% Dell Latitude 7310 2in1: i7 10610U,16GB,256GB,13.3" Touch 100%sRGB 350nit,WWAN eSIM,Win11
- Samsung Galaxy S22 - Fekete - Független - 2025.03.05-ig garancia - Tökéletes állapot
- Endorfy Fortis 5 ARGB CPU hűtő áron alul! (3 db)