Вычеслите сумму квадратов всех четных чисел от 1 до n

92

Вычеслите сумму квадратов всех четных чисел от 1 до n

категория: информатика

ответить

в избранное

39

weburist

26 февраля 2023

var i, n, s: integer; begin readln (n); for i: =1 to n do begin if (i mod 2=0) then s: =s+sqr (i); end; writeln (s); end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?

Задайте свой вопрос

Смотрите также:

HELP! ЗАДАНИЕ В ПАСКАЛЕ!

Дано натуральное число n. Найти сумму всех нечетных чисел от 1 до nПОМОГИТЕ ПОЖАЛУЙСТА! У МЕНЯ КОНТРОЛЬНАЯ!

1. Перевести число 110110,01 из двоичной системы в десятичную.…

Переведите двоичное число 1101100 в десятичную систему счисления

ПОМОГИТЕ! Дано действительное число…

Составить и записать программу: вычисляющу по 2 ум значения сторон прямоугольника его площадь и периметр

Срочно помогите, нужны команды рисунков в ЛогоМирах

Дано: a=32 (10) системе счисления, b=35 (8) системе счисления

Определить, сколько из чисел a,b,c являются черными используя ветвление

27400

14822

Английский язык

14216

Биология

7369

720

Экономика

18829

8304

География

15850

Геометрия

5255

Информатика

11818

23332

15992

Литература

73118

Математика

8152

Обществознание

466

Правоведение

46271

Русский язык

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!

Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!

Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...