Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
fietisov
09.10.2022 19:10 •
Информатика
Составьте программу вычисляющую сумму квадратов всех чисел от 1 до n
Показать ответ
Ответ:
kirilll2233
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 оценок)
Популярные вопросы: Информатика
natata23081
07.04.2023 16:14
Информатика как из этого слава получить другие слова из этих букв?...
Ffffffsusjbshjxj
07.04.2023 16:14
Нужно хоть что-нибудь 1)написать программу на языке программирования паскаль, вычисляющую гипотенузу и площадь прямоугольного треугольника по двум данным катетам. 2)заданы площади...
stendec
28.09.2020 19:28
На паскале: четырёх значное число,которое раскладывается по цифрам,находится произведение,сумма,большое число из них...
romankomarov1
20.12.2022 21:35
Решить в турбо паскале! 1) определить количество двухзначных чисел, сумма цифр которых равна числу n. 2) составить таблицу для двух столбцов выражения y=x²+3. ввод чисел через...
ENOT234u
20.12.2022 21:35
Данные, объемом 16 мбайт, поступают на компьютер по линии со скоростью передачи данных 32 мбит/с. после получения 4 мбайт компьютер начинает одновременно передавать эти данные...
berezovskayave
20.12.2022 21:35
определить максимальное количество страниц текста, содержащего по 80 символов в каждой строке и 64 строки на странице, которое может содержать файл, сохраненный на гибком магнитном...
olchik75
09.09.2021 20:07
Написать программу на с++. напишите функцию, которая вычисляет значение ab. числа a и b могут быть любыми дробными положительными числами. и программу, использующую эту функцию...
6df5
12.08.2020 20:39
Найти объем текста записанного на языке алфавит которого содержит 256 символов 20 символов в сообщении...
faa7
31.01.2021 18:25
Нужно, . с пояснением, если дано логическое выражение не(а и b), где a и b - логические величины. при выполнение какого из следующих высказываний данное выражение будет ложным?...
Даша5391
31.01.2021 18:25
Вкаких позиционных системах счисления выполняется равенство 515b+4305=9463. цифры со значением больше 9 представляются строчными латинскими буквами. таким образом, основание системы...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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.