FreePascal program?

Itt a kódja:

"program paros;

var x, i:integer;

begin

for i:=2 to 20 do;

x:=0; <--------------------------

if i mod 2=0 then x:=x+1;

writeln('2-től 20-ig ennyi páros szám van: ',x);

readln(x);

end."

De most már szállj le rólam a ..tsába, jó?

Kösz.

A kérdező ezt a képet küldte el:

[link]

az alábbi üzenetben:

[link]

a közölt forráskód hibája az, amit mondtam.

Nincs semmilyen iteráción belüli inicializáció.

Nyilván azért mert akkor már közöltem vele, hogy mi a gond.

De megtennéd, hogy keresel valami veled egy súlycsoportban lévőt, engem meg szépen elfelejtenél?

Vagy ha nagyon ráérsz, írd át a shit kódodat, hogy ne tartalmazzon 100 % futásidő redundanciát.

Mivel ez egy nyílt fórum, éppen ezért ildomos a fórum témájához kapcsolódó, nem privát jellegű közléseket a fórumban közzétenni és nem privát üzenet formájában írogatni.

No offense, de kedves #1, #7, #9, #11, #13-as hozzászóló, felesleges az argumentum ad hominem vagdalkozásod: le style c'est l'homme.