Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
kristinabuslae
25.10.2020 08:03 •
Информатика
Найти сумму квадратов первых n натуральных чисел. паскааль
Показать ответ
Ответ:
zaira0
06.10.2020 21:28
Var
sum,n:longint;
begin
writeln('n=? ');
readln(n);
sum:=0;
// основной цикл
for var i:=1 to n do
sum:=sum+i*i;
writeln('При n=',n,' сумма квадратов первых n чисел = ',sum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
Илончик10
04.02.2023 16:12
Что произойдет при выполнении команды опустить перо, если перо Чертежника уже опущено? 1)ошибка 2)отказ исполнителя 3)чертежник смеcтится на 3 единичных отрезка вправо...
rrrrrrrrtttttttttyyy
08.12.2021 02:29
Антивирусные программы, плюсы и минусы, составить небольшую таблицу о каждой программе и написать ее + и -...
1Max8
25.04.2022 02:15
Записать на языке паскаль логическое выражение и составить программу с выводом его значения 1) х принадлежит одному из промежутков ]3; 5[ и ]7; 8[ 2)у принадлежит...
endermeska
20.12.2022 07:02
Написать алгоритм в программе исполнитель робот.нужно сделать шахматную доску с обстановкой 10×10 ! при условии, что максимальное кол-во строк 60.разрешается использовать:...
liza10pav
15.11.2022 13:15
Составить блок-схему к данному , и написать код на языке c++....
LaGGeRiSTiK
23.05.2021 06:02
Хочу стать программистом. уйти после 11-го класса. куда лучше поступать и сколько придётся учиться?...
Be11a
02.03.2021 23:16
Используя программу кумир, начертите данные 3 фигуры с алгоритмов. , умоляю, ...
kbvovap0drsr
02.06.2023 09:25
Массив c заполнен случайным образом целыми числами . найти среднее арифметическое из квадратов данной последовательности.решить в vba(visial vasic)...
Елис13
04.09.2021 17:33
Нужно перевести числа в 16-разрядныое 200 в 10 степени снизу -200 в 10 степнь снизу в 16 разрядную, в прямой код, обратный, дополнительный...
hnbgh7hyng
18.09.2021 00:19
Уисполнителя утроитель две команды, которым присвоены номера: 1) вычти 2 2) умножь на три. первая из них уменьшает число на экране на 2, вторая - утраивает его. запишите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
sum,n:longint;
begin
writeln('n=? ');
readln(n);
sum:=0;
// основной цикл
for var i:=1 to n do
sum:=sum+i*i;
writeln('При n=',n,' сумма квадратов первых n чисел = ',sum);
end.