Войти
Регистрация
Спроси ai-bota
В
Все
Б
Биология
Б
Беларуская мова
У
Українська мова
А
Алгебра
Р
Русский язык
О
ОБЖ
И
История
Ф
Физика
Қ
Қазақ тiлi
О
Окружающий мир
Э
Экономика
Н
Немецкий язык
Х
Химия
П
Право
П
Психология
Д
Другие предметы
Л
Литература
Г
География
Ф
Французский язык
М
Математика
М
Музыка
А
Английский язык
М
МХК
У
Українська література
И
Информатика
О
Обществознание
Г
Геометрия
Показать больше
Показать меньше
skorospelovana
17.02.2022 04:00 •
Информатика
Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n
Показать ответ
Ответ:
мариэтта3027
30.08.2020 16:53
Var
a: Real;
i,n: Integer;
Begin
WriteLn('Введите ваше ЭН'); ReadLn(n);
a:=0;
for i:=1 to n do
a:= a + sqr(i);
end;
WriteLn('Сумма квадратов равна=',a);
ReadLn;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
fgggg2qq
21.11.2022 18:53
Төмендегі тізімнен «Ақпарат» ұғымынын анықтамаларын тап. Дұрыс жауап саны: 2Қоршаған ортаның объектілері мен құбылыстары, олардың қасиеттері, параметрлері және қалып-...
15кк
07.07.2022 05:47
Условие задания: Определи вид информации, канал получения информации в зависимости от её восприятия человеком, обращай внимание на основную функцию и свойство предмета!...
Плювиофил
21.05.2021 09:12
Дана последовательность a1 a2 an. образовать новую последовательность, выбросив из исходной, те члены, которые равны min(a1,a2 an). как это сделать при функций и процедур?...
TRIPLEN
18.04.2020 14:25
. Записать в поле длиной 3 байта число 0111000101101012. Пронумеровать разряды....
dhsjkhd
29.07.2020 17:12
Общему понятию «композитор» найди единичное понятие из списка.Курильское озеро, Есенин, Коперник, Альпы, А. Македонский, Аристотель, Бах, Суриков, Нил.аЕдиничное понятие:...
Lololox222
02.01.2021 18:42
1) Средь оплывших свечей и вечерних молитв средь военных трофеев и мирных костров жили книжные дети (не)знавшие битв изнывая от мелких своих катастроф. 2) Липли волосы...
LanaStreet
02.01.2021 18:42
первая часть тетрадь третий класс русский язык Проверь как-то научусь используя проверки слов непроизносимыми согласными дополни высказывание чтобы проверить свой...
Linamouse
27.12.2021 01:47
16х2 - 40ху + 25у2 , якщо х=6, у = 3...
Viki3888
29.05.2023 18:20
.Тест по теме «Углеводороды» Вопросы теста 1. Автор теории химического строения органических соединений Варианты ответов: 1. Д. Менделеев 2. А. Бутлеров 3. М. Ломоносов...
Veronika509
28.05.2021 08:40
Всем привет я хочу рассказать чем я ухаживаю за своей лицое и кожей...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a: Real;
i,n: Integer;
Begin
WriteLn('Введите ваше ЭН'); ReadLn(n);
a:=0;
for i:=1 to n do
a:= a + sqr(i);
end;
WriteLn('Сумма квадратов равна=',a);
ReadLn;
end.