1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program sprawdzianSumaLiczb; var a, b: Integer; sum: Integer; begin sum:=0; Write('Podaj poczatek i koniec przedzialu: '); ReadLn(a, b); if a<=b then begin for a:=a to b do begin sum:=sum+a; end; end; WriteLn('Suma liczb w tym przedziale to ', sum, '.'); ReadLn; end. |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 |
program grupaDruga; var a, n, i, sum: Integer; begin Write('Podaj a i n: '); ReadLn(a, n); if n>=0 then begin for i:=1 to n do begin sum:=sum+a; a:=a+1; end; end; WriteLn('Oczekiwany wynik to ', sum); ReadLn; end. |