Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ПоляКрасавица1
24.10.2021 03:38 •
Информатика
Найдите сумму квадратов и квадрат суммы первых 10 натуральных чисел. по информатике( нужна программа)
Показать ответ
Ответ:
yulyaartemowa20
02.10.2020 11:13
Var i, sumkv, kvsum: integer;
begin
for i:=1 to 10 do
begin
sumkv:=sumkv+sqr(i);
kvsum:=kvsum+i;
end;
kvsum:=sqr(kvsum);
writeln('Сумма квадратов равна ', sumkv);
writeln('Квадрат суммы равен ', kvsum);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
elisaveta272002
26.03.2021 00:12
Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 7 и оканчивающихся на 3. Программа получает на вход натуральные числа,...
Grister555
08.04.2022 11:48
Для решения всех задач сделать два варианта программы: с реализацией указанной подпрограммы в виде функции и в виде процедуры. 1. Составить программу нахождения наибольшего...
Nikita67566
17.02.2023 07:09
Напишите 2 программы которые рисуют спираль внутри прямо угольника размеры которого заранее неизвесны для анализа ситуации на рабочем поле в первой программе должен использоватся...
mmmm50
31.10.2021 08:52
Алгоритм вычисления значения функции F(n), где n — натуральное число, задан следующими соотношениями: F(1) = 1; F(n) = F(n − 1) + n если n 1 Чему равно значение функции F(93)?...
msimaratp08h7f
14.05.2023 08:40
Какой оператор цикла желательно использовать, если известно условие выполнения тела цикла? 1.for параметр := начальное значение to конечное значение do оператор 2.repeat оператор1,...
555сармат555
07.06.2020 05:31
Некоторая программа преобразует число Х в число У (обозначено Х= Y). Получены следующие результаты: 12= 9, 15= 9, 23= 18, 20= 18, 36= 27, 144= 135. Чему равен результат преобразования...
milanavornik
16.10.2020 17:00
Скласти сенкан «Цикл»...
Ludacris66
10.11.2022 10:20
Напишите код этой html таблицы,буду благодарен за быстрый ответ...
pyataevadasha
06.10.2022 09:02
Подпрограмма. Процедура заранее! Составить программу, которая меняет у пяти любых чисел, вводимых с клавиатуры, порядок следования цифр в числе на обратный. В качестве процедуры...
ul1qq
03.03.2020 20:37
Черно-белое (без градаций серого) графическое изображение имеет размер 41×41 точек. Какой объём памяти займёт это изображение?...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
begin
for i:=1 to 10 do
begin
sumkv:=sumkv+sqr(i);
kvsum:=kvsum+i;
end;
kvsum:=sqr(kvsum);
writeln('Сумма квадратов равна ', sumkv);
writeln('Квадрат суммы равен ', kvsum);
end.