Даны два целых числа A и B (A > B). Найти сумму всех целых чисел от A до B включительно — Pascal(Паскаль)

program for7;
    var A, B, i, S: integer;
begin
    read(A, B);
    S := 0;
    for i := A to B 
        do S := S + i;
    write( 'Сумма - ', S);
end.

Leave a Comment

2 + 5 =