- Gaming notebook topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Milyen egeret válasszak?
- TCL LCD és LED TV-k
- Dell notebook topic
- Milyen videókártyát?
- Vezetékes FEJhallgatók
- Kezdő fotósok digitális fényképei
- Androidos tablet topic
- A SAMA jóvoltából konkurenciája jött a Thermalright léghűtéseinek?
Hirdetés
Új hozzászólás Aktív témák
-
kornyiktamas
aktív tag
elméletileg DELPHI-ben így néz ki:
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils;var
Evszam: string;
ev: integer;function TEvszam: integer;
var
i: integer;
szam: array[1..8] of integer;
szamok: string;
osszeg: integer;begin
szamok := Evszam[1] + Evszam[2] + Evszam[3] + Evszam[4] + Evszam[6] + Evszam[7] +
Evszam[9] + Evszam[10];i := 0;
for i := 0 to 8 - 1 do begin
szam[i+1] := strtoint(szamok[i+1]);
end;
osszeg := szam[1] + szam[2] + szam[3] + szam[4] +
szam[5] + szam[6] + szam[7] + szam[8];while osszeg > 9 do begin
szamok := inttostr(osszeg);
szam[1] := strtoint(szamok[1]);
szam[2] := strtoint(szamok[2]);
szam[3] := szam[1] + szam[2];
osszeg := szam[3];
end;result := osszeg;
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
readln(Evszam);
ev := TEvszam;
writeln(ev);
readln;
case ev of
1: writeln('Mars');
2: writeln('Jupiter');
9: writeln('valami');
end;
readln;end.
Új hozzászólás Aktív témák
A topicot kiemeltem. Valaki nem akar egy nyitó hsz-t írni?:))
- Samsung Galaxy Watch4 és Watch4 Classic - próbawearzió
- Bittorrent topik
- Témázgatunk, témázgatunk!? ... avagy mutasd az Android homescreened!
- Kerti grill és bográcsozó házilag (BBQ, tervek, ötletek, receptek)
- Gaming notebook topik
- Spórolós topik
- Háztartási gépek
- Linux kezdőknek
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Diablo IV
- További aktív témák...
- BESZÁMÍTÁS! Asus B360M i7 9700 16GB DDR4 512GB SSD RX 6650 XT 8GB ZALMAN N4 600W
- Ritkaság! Hibátlan! Intel Core I9 13900KS Processzor!
- Eladó karcmentes Honor 20e 4/64GB / kék / 12 hó jótállással
- BESZÁMÍTÁS! MSI B450M R5 3600 16GB DDR4 512GB SSD GTX 1660 Ti 6GB Zalman N4 EVGA 450W
- Eladó arany színű Apple iphone 7 128GB / 12 hó jótállással
Állásajánlatok
Cég: FOTC
Város: Budapest