Даю 60 баллов!!! Составьте и запишите копьютерную программу ** языке программирования...

Question

Даю 60 баллов!!! Составьте и запишите копьютерную программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В. С комментариями!!!

Answer 1

Вот код:

var ababab,bababa,sususumamama:Integer;
begin
WriteLn('Перед вами программа для нахождения суммы всех натуральных чисел заданного диапазона');
Write('Пожалуйста введите наименшее число диапазона ');
ReadLn(ababab);
Write('А теперь введите наибольшее число диапазона ');
ReadLn(bababa);
//оформляем ввод данных
sususumamama:=0;//присваиваем сумме значение 0
while ababab<=bababa do<br>begin
sususumamama:=sususumamama+ababab;//увеличиваем сумму на число а
ababab:=ababab+1;//увеличиваем число а на 1
end;
Write('Сумма всех чисел диапазона равна '+sususumamama);
//выводим сумму чисел
end.