Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
skyline12345
22.05.2020 04:36 •
Информатика
Составить программу вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10
Показать ответ
Ответ:
СанькаДьяченко
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 оценок)
Популярные вопросы: Информатика
Loi00
05.03.2021 14:55
полний ответ вас ЗАДАНИЕ 6...
EfremovMk
23.04.2023 06:08
Заполнить массив из 10 элементов случайными числами в интервале [0..99] и отсортировать его по возрастанию суммы цифр. исходный массив: 14 25 13 12 76 58 21 87 10 98 результат:...
alyaagafonova
07.05.2023 05:15
Группа студентов пришла в бассейн, в котором 4 дорожки для плавания. тренер сообщил, что группа будет плавать на дорожке номер 3. сколько информации получили студентыиз этого...
elenaignashova1
16.11.2022 15:23
Na2co3+cu(oh)2= h2s+koh= feso4+ba(oh)2= cu(no3)+fe= h2so3+lioh= ca+hbr= !...
tana2811
16.11.2022 15:23
Начертить квадрат площадью 900 квадратных миллиметров.заштриховать 2- ую 3 юю его площади...
LizaSchoolTwo
16.11.2022 15:23
Магнітний потік, що пронизує замкнену провідну котошку опором 2 ом, рівномірно зменшився на 15 мвб. яка сила індукційного струму в котушці, якщо час зміни магнітного потоку...
kirillusupov20ovyv00
16.11.2022 15:23
Учому щастя людини за енеїдою івана котляревського . 3-4 речення....
Anastasia74926482
16.11.2022 15:23
Устаревшие слова из произведения тургенева бирюк...
лыл3
16.11.2022 15:23
Вкакие древние страны вошли в состав персидской державы...
zver35
16.11.2022 15: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.