Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Gelag
25.04.2021 08:44 •
Информатика
Составить программу вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
Показать ответ
Ответ:
romaalykulov
08.10.2020 03:54
Var
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
bagauridiana
01.01.2022 05:35
Найдите правило преобразования 1-1 2-2 3-0 4-1 20-2 21-0 1-0 2-0 3-1 4-1 20-6 21-7...
melchenko11
01.01.2022 05:35
Что происходит с предыдущим значением переменной после присваивания ей нового значения?...
лох250
01.01.2022 05:35
Решать нужно функцией если. мне всего лишь требуется от вас формула, с которой можно узнать, какая будет стипендия. представленная ниже таблица должна администрации института...
uchikha2016
20.11.2021 04:00
запрограмировать в паскале эту задачу с циклов запрограмировать в паскале эту задачу с циклов >...
ilyuza2004p06tr4
07.03.2021 13:46
Упр 26 номер 1 2.В файле.Если решите Напишите в Exele и файл через ....
vikaplmplmpl
09.03.2020 15:31
Вертолёт пролетел в горизонтальном направлении 10 км на восток затем 8 км на юг после этого 12 км на запад и затем 8 км на север определить путь и перемещение вертолёта....
Pollyru
09.03.2020 15:31
Вамбаре было 9 5/6т зерна.в амбар 3 3/8т,а увезли 5 11/12т зерна.сколько тонн зерна осталось в амбаре?...
Впмриирсгишммп
09.03.2020 15:31
Найдите угол 2 угол 3 угол 4 если угол 1 равен 127 градусов...
Данил6270
09.03.2020 15:31
Объясните если заниматься нет никакой нужды в употреблении лекарств...
WaRRiOPRO
09.03.2020 15:31
Как бы я повела себя в школе, если бы меня обзывали, что у меня рот до ушей? сочинение подробное нужно написать. 98...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
i, sum: integer;
begin
sum := 0;
i := 5;
repeat
sum := sum + i * i;
i := i + 1;
until(i > 10);
write(sum);
end.