Вход
Регистрация
Спроси здесь
Все
Биология
Информатика
Видео-ответы
Физика
Французский язык
Русский язык
Қазақ тiлi
История
Окружающий мир
География
Обществознание
Алгебра
Психология
МХК
Другие предметы
Английский язык
Українська література
Право
ОБЖ
Немецкий язык
Українська мова
Беларуская мова
Музыка
Химия
Экономика
Геометрия
Литература
Показать все предметы
Показать меньше предметов
Galor
20.09.2019 01:50 •
Информатика
Написать программу для вычисления суммы числел от a до b (где a< =b) указание: переменная, которая будет накапливать сумму в начале должна быть равна нулю
Показать ответ
Ответ:
natava1998
08.10.2020 03:35
1. Современное решение
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел a и b:');
Writeln('S=',Range(a,b).Sum)
end.
Пример
Введите через пробел a и b: 5 18
S=161
2. К сожалению, все еще часто типичный для школы вариант
var
a,b,i,s:integer;
begin
Write('Введите через пробел a и b: ');
Read(a,b);
s:=0;
for i:=a to b do
s:=s+i;
Writeln('S=',s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Алишер00001
18.12.2019 19:30
Поместить в хеш таблицу 5 книг, любым другим числовым быть готовым объяснить принцип работы метода....
бэдгерл1
18.12.2019 19:29
Поместить в хеш таблицу 10 книг, любым другим числовым по названию книги). несколько примеров коллизии. быть готовым объяснить принцип работы метода....
tata15711
29.03.2019 19:23
Написать разветвляющийся алгоритм можно ехать на такси со скоростью v1, и оплатой p1 либо идти пешком со скоростью v2 бесплатно. как с наименьшими затратами преодолеть путь s за время...
КатяСимагина1
03.11.2020 17:44
Что такое переменные хочу ответ ...
11111222А
03.11.2020 17:44
2. Які пристрої використовують IoT?...
ПростоТим5
03.11.2020 17:43
Вопрос 2/25 Какой полнофункциональной антивирусной программы не существует?Варианты ответовMicrosoft Security EssentialsMicrosoft AntiviruseAVASTIESET NOD32о...
Pussyellien
03.11.2020 17:43
Зделать такую табличку в вьорде или просто збросить текстом...
ВАС12237
03.11.2020 17:43
C++ Дана прямоугольная матрица размерности MxN и заданное значение. Составить и вывести новый одномерный массив со значениями элементов исходной матрицы, не равных заданному значению...
Помидоркин001
03.11.2020 17:42
Напишите последовательность команд, с которой можно переставить значения переменных a и b так, чтобы выполнить условие a =b . Прогр Pascal abc...
savoian82ozq31t
03.11.2020 17:42
Кондратий при виде семёрок начинает нервно втягивать воздух, а при виде чисел, которые делятся на семь, начинает яростно выдыхать воздух. Чтобы Кондратию не стало совсем плохо, надо...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
КОМПАНИЯ
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ и учителей
Сообщество родителей
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
Установи приложение
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь понять?
Спроси здесь
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b):=ReadInteger2('Введите через пробел a и b:');
Writeln('S=',Range(a,b).Sum)
end.
Пример
Введите через пробел a и b: 5 18
S=161
2. К сожалению, все еще часто типичный для школы вариант
var
a,b,i,s:integer;
begin
Write('Введите через пробел a и b: ');
Read(a,b);
s:=0;
for i:=a to b do
s:=s+i;
Writeln('S=',s)
end.