- Biztonsági aggályok miatt késik a Microsoft hatalmas AI-újítása
- Kíváncsi az EU, milyen online védelmet adnak a pornóplatformok a kiskorúaknak
- Panaszt tettek a Google ellen, mert követi a felhasználókat a böngészője
- Rengeteg áram kell az adatközpontoknak, erre válasz a geotermikus energia
- Az AI megmondja, hogy van-e fájdalma a macskának
Új hozzászólás Aktív témák
-
RedSign
tag
válasz
Ultimate #2410 üzenetére
Régen volt már a TP, de szerintem valami hasonló (tesztelve nincsen, ha hibás valaki javítsa, köszönöm!):
program paros;
uses crt;
var i,j,osszeg: integer;
begin
clrscr;
writeln('Az első 50 páros szám:');
i=1;
j=1;
while i<50 do
begin
if j mos 2=0 then osszeg:=osszeg+j;
j:=j+1;
end;
gotoxy(1,7);
writeln('Összegük:');
writeln(osszeg);
readln;
end;
end.http://www.redsign.hu
-
RedSign
tag
válasz
Gyuri16 #2414 üzenetére
ha gondolod bemasolhatod a veglegest es megnezem, mert RedSign megoldasa nem tul jo.. (egyreszt le se fordulna, ha lefordulna vegtelen ciklus lenne. azon kivul nem az elso otven szamot nezi, hanem csak otvenig a parosakat)
Már közel 15 éve nem programoztam TP-ban, tehát esélyes hogy le sem fordul vagy végtelen ciklusba fut...
...szerintem az első 50-et néz, csak éppen kimaradt a while-ból egy i := i+1; ...
[ Szerkesztve ]
http://www.redsign.hu
Új hozzászólás Aktív témák
- OLED TV topic
- Vírusirtó topic
- Luck Dragon: Asszociációs játék. :)
- Vicces képek
- Router gondok
- ubyegon2: Airfryer XL XXL forrólevegős sütő gyakorlati tanácsok, ötletek, receptek
- Skoda, VW, Audi, Seat topik
- Gaming notebook topik
- Betelik a pohár: nagy igény lenne a gyorshajtás-ellenes technológiára
- Elektromos autók - motorok
- További aktív témák...
- Eladó Samsung Galaxy A40 64GB, Dual, kártyafüggetlen (A405) -
- BenQ PD3200U - 32" 4K 16:9 100% sRGB 60Hz Designer Monitor
- ASUS TUF Gaming A15 FA507XU- LP4050W Gray ELADÓ!!!!!! (GARANCIÁLIS 36-HÓNAP)
- Újszerű Spigen Liquid Air Folio Tok, iPad Pro 12.9, Fekete
- Huion Kamvas Digitalizáló Tábla / Rajztábla / Külső Monitor okos tollal /// ÚJ // Számla + Garancia