Program obliczający sumę z 10 podanych przez użytkownika liczb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
program tp3; uses crt; var suma,i,a: integer; begin clrscr; i:=0; repeat write ('Podaj liczbe '); readln(a); suma:=suma+a; i:=i+1; until(i=10); writeln('Suma podanych liczb wynosi ',suma); readln; end. |