Hogy kell megirni ezt a programot pascalba? Olvassunk be egesz szamokat es adja oket ossze, addig mig nullat be nem olvasunk, hogy akkor lealljon. Es irassa ki az eredmenyt.

Elindítod az IDE-t és elkezded az ütasításokat bepötyögni.

Hol akadtál el?

Uses crt; //crt unit használata

Var i,j: Integer; //i és j változók deklarálása

begin //program eleje

clrscr; i:=0; j:=0; {képernyő törlés s változók nullázása }

repeat //ciklus

readln(j); //j beolvasása

i:=i+j; //i-hez hozzáadjuk j-t

until j=0; //ciklus vége ha j egyenlő 0-val

writeln('A beolvasott szamok erteke: ',i); {i ertekenek kiirasa; }

readkey; //gomb lenyomasara varas

end. //program vege