Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
vikaviktoriyk1
02.05.2020 20:53 •
Информатика
Написать программу дано натуральное число n. вычеслить s=1+4+9+16+25+36+49
Ответ:
Аноним8127
09.10.2020 20:05
var n,i,s: integer;
begin
readln(n);
for i := 1 to n do s:=s+i*i;
writeln(s)
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
zentronys
17.01.2022 22:04
Две одномерный массив. Запишите чёрный ответ...
Дамир2207
28.11.2021 22:38
На c++ с циклом for в новом игровом телешоу «выбирай или проиграешь! » игроку по очереди пары призов ценностью ai и bi. игрок может выбрать из каждой пары призов ровно...
ovenovsp00yl2
02.12.2020 23:30
Где могут пригодится полученные знания на уроке информатики,в каких профессиях.кратко....
eegorov1996
11.03.2020 01:41
Что из перечисленного в списке является символом? буква знак препинания всё перечисленное цифра...
RimValeria
29.05.2022 14:42
Изучить возможности служебных программ и утилит компьютера. 2. Пользуясь изученными утилитами, определить следующие характеристики компьютера:image3. Понаблюдать за степенью...
Svetic1985
13.12.2021 07:00
Заполните таблицу, команда, координаты точки...
sidorov26812
28.06.2021 05:15
Find subject/object pronouns in the text....
malenkayakreyz
07.04.2020 17:29
с таблицей саков 1саки за морем 2саки носящие остроконечные шапки 3 Саки готовящие напиток хаома...
kaiv
08.05.2021 17:50
161A. Спишите предложения, вставьте пропущенные буквы, рас. ставьте недостающие знаки препинания. При каких словприсоединяются уточняющие обстоятельства? Составьте схемы...
Knzke3
20.08.2022 12:24
Найти объем железной детали 18кг. (р-железа= 7800кг/м³...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
var n,i,s: integer;
begin
readln(n);
for i := 1 to n do s:=s+i*i;
writeln(s)
end.