Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
FeliceMell
04.12.2021 20:03 •
Информатика
Составить программу на паскале найти сумму квадратов натуральных чисел от 15 до 25
Ответ:
Оливия20
03.07.2020 18:52
Var
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
047oksana
26.01.2022 20:40
Чем отличается колонтитулы от полей...
ProgramAkkaunt
01.03.2022 20:38
Укажите оператор вычисляющий целую часть от давления двух чисел...
kochergina707
01.03.2022 20:38
Как называется конструкция начинающаяся с for...
wwwzelenruowzl2z
25.01.2023 00:47
1. запишите числа в развёрнутой форме 314,61010, 101110,1112, 251,638, 7cf16. 2. переведите десятичные числа 4510, 11710, 14910 в двоичную, восьмеричную и шестнадцатеричную систему...
kolika2016
18.03.2023 00:04
На паскале написать программу с подпрограммой. дано: массивы i(11), k(11). сформировать массив м (11), элементы которого вычисляются по формуле m j= i j+ k j (j=1,11). массивы i,k...
nika1299
18.03.2023 00:04
Дан массив найти произведение отрицательных элементов с#...
maha80
17.11.2020 05:58
1) разработайте программу,запрашивающую у пользователя длины обеих катетов прямоугольного треугольника,и выводящую на экран гипотезу по формуле пифагора 2)запросите у пользователя...
ProPython
02.11.2020 06:33
Как составить алгоритм на тему разнести телеграммы...
anshul
02.11.2020 06:33
Turbo pascal-написать программу вычисления суммы натуральных чисел от 1 до 10...
танюша237
15.11.2020 06:33
Из заданной целочисленной матрицы а (n,м) удалите строку в которой есть отрицательный элемент решить...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
i,s:integer;
begin
s:=0;
for i:=15 to 25 do
s:=s+sqr(i);
writeln(s);
readln;
end.