Question

Информатика 9 класс.
Составьте и запишите КОМПЬЮТЕРНУЮ программу на языке программирования Паскаль для решения следующей задачи: вычислить сумму всех натуральных чисел от заданного числа А до заданного пользователем числа В
На всякий случай: имена переменных в программах у обучающихся совпадать не должны. Также следует обеспечить достойный диалог с пользователем и комментарии:
Перед вами программа для нахождения …
Введите … А теперь введите … А вот и результат …
В программе обязательны комментарии!!!

Комментарий по ходу выполнения программы давать вразумительный, не менее 3-х слов в одной строке комментария.

Answer 1

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