Legfrissebb anyagok
IT café témák
PROHARDVER! témák
Mobilarena témák
Keresés
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
- AKCIÓ - TELEFONTOKOK, EGYÉB AUTÓS KIEGÉSZÍTŐK, FÜLHALLGATÓK
- Olympus M.ZUIKO DIGITAL 25mm f/1.8 objektív
- Xiaomi Redmi 9 64GB, Kártyafüggetlen, 1 Év Garanciával
- Dell Latitude E7450 Full i7-5600U, 16GB DDR3, 512GB SSD, FHD IPS, Nvidia, HUN Vil.Bill. Új
- Dell Latitude 7310 i7-10610U, 16GB DDR4, 512GB NVMe, FHD IPS Privacy, HUN Vil.Bill, NBD, Új Állapot