Hirdetés
-
Elcsípte a Huawei kameratelefonja az első helyet
ma A Pura 70 Ultra a DxOMarknál tarolt.
-
Senua's Saga: Hellblade II - Ami eddig történt
gp Napokon belül érkezik a folytatás, érdemes lehet megnézni a korábbi rész összefoglalóját.
-
LG C4 tévé, a népszerű OLED-sorozat legfrissebb tagja
ph Leteszteltük az OLED evo paneles, 4K felbontású, mélynyomókkal is felszerelt, 65 hüvelykes televíziót.
Ú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?:))
- Bomba ár! Asus VivoBook X412F - i5-8GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 650 G5 - i7-8GEN I 8GB I 256GB SSD I 15,6" FHD I Cam I W11 I Garancia!
- Bomba ár! Lenovo ThinkPad L380 - i5-8GEN I 8GB I 256SSD I 13,3" FHD Touch I Cam I W11 I Gari!
- Bomba ár! Asus VivoBook S410U - i5-8GEN I 8GB I 256GB SSD I 14" FHD I HDMI I Cam I W11 I Garancia!
- Bomba ár! HP ProBook 450 G3 - i7-6G I 8GB I 256GB SSD I HDMI I 15,6" FHD I Cam I W10 I Gar!
Állásajánlatok
Cég: Ozeki Kft.
Város: Debrecen
Cég: Promenade Publishing House Kft.
Város: Budapest