Question

спросить у пользователя два числа. используя while посчитать сумму целый чисел между этими числами включительно.Вывести ответ на экран.Решить с помощью паскаль ABC.

Answer 1

uses crt;
var
min,max,sum:integer;
begin
sum:=0;
writeln('Введите 1-ое число');
readln(min);
writeln('Введите 2-ое число');
readln(max);
while (min <= max) do begin
sum:=sum+min;
min:= min + 1;
end;
writeln('Сумма = ', sum);
end.