Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
A1n2g3e4l5i6n7a87
23.08.2022 03:33 •
Информатика
Составить программу вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
Показать ответ
Ответ:
Gobbygo
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 оценок)
Популярные вопросы: Информатика
alkozlovtzeva
05.08.2022 21:30
Надо циклически сдвиньте элементы списка вправо (a[0] переходит на место a[1], a[1] на место a[2], последний элемент переходит на место используйте минимально возможное количество...
Princessa607
26.07.2022 04:16
Запиши число 12622 в развёрнутом виде, начиная со старшего разряда. ...
Evelinahomytova
23.05.2022 05:37
Перечислете основные элементы окна программы....
DmitryKind98
23.05.2022 05:37
Придумайте и составьте для нее программу в паскале...
TastyDonut
27.06.2020 12:58
Введите с клавиатуры 10 натуральных чисел. введите на экран количество двузначных чисел....
Викусёк1101
02.04.2021 17:27
Сколько бит памяти займет словово каталог...
Сова00478902500
02.04.2021 17:27
Составить программу нахождения по формуле герона...
Lololoshka98
02.04.2021 17:27
Вкоробке лежат 64 разноцветных карандаша какое кол-во информации содержит сообщение что из коробки достали красный карандаш?...
Rexmaster0
30.10.2020 21:21
Скорость передачи данных по некоторому каналу равна 64000 бит в секунду передача файла по этому каналу связи заняла 16 секунд определите размер файла в килобайтах...
arkatovazara
30.05.2021 05:23
Какое количество информации получит игрок при первом ходе другово игрокв в игре морской бой на поле...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.