Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Utepovabay
13.07.2021 11:07 •
Информатика
Написать программу для вычисления суммы 10+20+30++400. программа: pascalabc
Показать ответ
Ответ:
shukirbekovabak
06.10.2020 08:33
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(10,400,10).Sum);
end.
Результат
8200
2. С циклом while
begin
var n:=10;
var s:=0;
while n<=400 do begin s+=n; n+=10 end;
Writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
cat12213113
05.01.2022 16:41
Блок схема алгоритмической конструкции ,, цикл с параметром,,...
nikitka199821
26.07.2022 03:35
Ненаправленная линия(без стрелки) связывающая вершины графа...
alkofner
26.07.2022 03:35
Укажите устройства ввода информации: микрофон, документ-камера,сканер, наушники,мышь, монитор,видеопроектор,колонки...
irina030270
26.07.2022 03:35
Руслан хотел поделиться впечатлениями о летнем путешествии с друзьями,но забыл,где именно он сохранил фотографию байкал.jpeg .ниже представлена файловая структура диска e: e: \_видеозапись.avi...
Mmamagadzhieva
27.02.2020 04:11
Ануар решил пополнить счёт сотовой связи. ануару составить правильный алгоритм...
lolilol2
07.11.2021 21:55
Для каких целей используется метод end= \ n в функции рrint ()?...
bgdadanilenko20
07.08.2021 07:46
Написать программу на питоне Используя лямбда-функции, функции map(), filter(), reduce(), zip() cоставить программу для решения задачи: Дано натуральное число n. Найти значение...
Sofia8787
31.10.2021 10:17
Сколько пользовательских паролей Можно сохранить В 8кб Памяти если каждый пароль Состоит из восьми символов Сколько цифр и букв Русского и английского алфавита С учётом регистра?...
NastysikRicci
11.05.2022 07:35
Дана блок-схема. Какое значение будет иметь z на выходе, если x = 13?...
YSPESHNUY
19.10.2021 02:35
Найдите IP-адрес сети по: IP-адрес узла: 224.120.249.18 Маска: 255.255.240.0 Ребят не могу понять как использовать коньюнцию...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(Range(10,400,10).Sum);
end.
Результат
8200
2. С циклом while
begin
var n:=10;
var s:=0;
while n<=400 do begin s+=n; n+=10 end;
Writeln(s);
end.