Даны два целых числа A и B (A < B). Найти сумму всех целых чисел от A до B включительно. Написать программу с while НА ПАСКАЛЕ
DcPer11
2
11.10.2021 14:16
4
Другие вопросы по теме Информатика
polina260505
15.12.2020 11:43
Ali954
15.12.2020 11:43
Кауру
15.12.2020 11:42
БУЛИЧКА23
24.03.2020 19:04
Фприт
24.03.2020 18:59
kotsweg
04.07.2019 15:10
вова993
04.07.2019 15:10
Морти111
04.07.2019 15:10
Катюха1324
10.09.2019 23:30
Популярные вопросы
- Раскройте скобки; объясните написание частицы не с причастиями Отношения наши...
1 - Що думаеш сказать, спершу обмиркуй. Найты пидмет, прысудок, означеня, додаток,...
3 - Визначте масу води, яка буде міститися у 50 г розчину, щоб масова частка соди...
1 - Правление императрици Елизаветы Петровны Личность и Действия...
3 - Нужна аж Поставте в тексті розділові знаки.и кронами укри-Ліси навколо села вигойдували...
1 - Variant I) Выберите лишнее слово в строке, по смыслу. 1. fry, bake, order, boil....
1 - На отдельных карточках написаны числа от 1 до 10, каждое 1 раз. Дарья наугад вытаскивает...
1 - С подвижного блока груз подняли на высоту 3м. На какую длину при этом был вытянут...
3 - 1. Какие семейные традиции вы знаете?2. Что такое семейная реликвия? Приведите...
1 - Вставить пропущенные слова: Презентациями называют чего-то нового. В виде часто...
2
program Summa;
var
A, B, Sum: Integer;
begin
writeln ('Введите число А:');
readln(A);
writeln ('Введите число B:');
readln(B);
while A <= B do begin
Sum := Sum + A;
A := A + 1;
end;
writeln ('Сумма:', Sum);
end.
Объяснение: