Pascal - Konsolowe

Suma kolejnych liczb

Suma kolejnych liczb
Pascal - Konsolowe

Program: wyliczający sumą kolejnych liczb.

Użytkownik podaje pierwszą liczbę, a następni program ją iteruje w zależności od podanej ilości liczb, przy okazji zliczana jest suma.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program pr2;
uses crt;
var n, i, suma, b: integer;
begin
     clrscr;
     writeln('Program obliczający sumę kolejnych liczb');
     writeln('Podaj liczbe naturalna');
     readln(b);
     writeln('Podaj ilosc liczb');
     readln(n);
     suma:=0;
     for i:=1 to n do
     begin
          suma:=suma+b;
          b:=b+1;
     end;
     writeln('Suma= ' ,suma);
     readln;
end.