Решение задач по теме "For - цикл с параметром в Pascal"

Решение задачи №7

program seven;

var A,B,Summa,i: integer;
begin
     write('A = ');
     readln(A);
     write('B = ');
     readln(B);
     Summa:=0;
     for i:=A to B do
         Summa:=Summa+i;
     writeln('Сумма целых чисел =  ',Summa);
end.

Назад