tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Подсчитать сумму квадратов
Подсчитать сумму квадратов четных элементов. pascal !
ВасилисаНебога
2 12.09.2019 09:20
4
Ответы
Мегамозг0511
07.10.2020 09:21
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)
end.
Пример
n= 19
49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30
S = 22484
ПОКАЗАТЬ ОТВЕТЫ
кио4
07.10.2020 09:21
Var
a:array[1..1000] of integer;
n,i,s:integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2=0
then s:=s+sqr(a[i]);
writeln(s);
readln;
readln
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
stepanoganezov
02.03.2019 11:50
2000х2000 пикселей ! скажите ответ?...
КундызДиас
02.03.2019 11:50
Номер 1 напечатать сумму элементов кратных одновременно двум или трем числового ряда 3, 6, 9, 2, 12, 2, 24 и 2 составить программу вычисления числового ряда для известного...
debchai123
02.03.2019 11:50
Сколько текстовых файлов объёмом 400байт можно записать на жёсткий диск, если используется таблица размешения файлов fat16 и ёмкость жёсткого диска равна 2гбайта...
absde91
09.11.2020 10:50
Написать код на С++ Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операции деления и взятия остатка от деления...
tumenka140
09.11.2020 10:50
Напишите алгоритм вычисления редакторского расстояния между словами. В качестве примера вычислите расстояние между словами ЭЛИСОН и АЛИСА...
Зайка20005
09.11.2020 10:51
Кто понимает информатику - Help me...
julia071201
18.09.2021 07:20
Определить информационный объем в битах (в ответ вписать только число), если каждый символ кодируется 2 байтами, следующего выражения: Для ученого и образованного человека...
Нилллл
18.09.2021 07:14
В терминологии сетей TCP/IP маской сети называется двоичное число, определяющее, какая часть IP-адреса узла сети относится к адресу сети, а какая — к адресу самого узла в...
elveranasibull
18.09.2021 07:11
1.Составьте программный код решения задачи Найдите сумму 1+2+3+…+n, где число n вводится пользователем с клавиатуры. Используйте цикл с предусловием. С++ 2.Решите эту же задачу,...
Kiska41384
18.09.2021 07:10
Сообщение записано с алфавита, содержащего 16 символов. Сколько весит сообщение в байтах, если в нем 350 символов? 2) В книге 100 страниц. На каждой странице 60 строк по 80...
Популярные вопросы
My brother, who lives in Denmark, ... to visit us next weekend.A)is comingb)...
3
Дано 2 кола і відрізок АВ. Побудуйте відрізок, рівний і паралельний даному...
1
Сравни.6 - 4 x 7. 44. 9 * 9. 424 : 4 * (24 — 4) : 516:4 : 2 * 18:2(32 :...
3
Разработайте алгоритм вычисления объёма кубика со стороной А см. Объём...
2
Сформулируйте основные принципы кадровой политики данной компании 1) в...
3
Назвіть характер світогляду середньовічної людини...
1
Самостійна робота з теми робота і потужність електричного струму закон...
3
Курица +овца=10Курица +свинья=20Овца+свинья=24Сколько весит каждая...
3
Прочитайте предложения и соотнесите частицы, употребленные в них, с названными...
1
Нарынқұм зауалы менің ойымша,себебі мен былай түсіндіремін,мен мынандай...
3
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
Writeln('S = ',a.Where(t->t.IsEven).Select(t->t*t).Sum)
end.
Пример
n= 19
49 -39 -47 67 8 -10 43 -26 58 89 13 61 -98 11 8 89 44 76 30
S = 22484
a:array[1..1000] of integer;
n,i,s:integer;
begin
write('Write size array: '); readln(n);
for i:=1 to n do
read(a[i]);
s:=0;
for i:=1 to n do
if a[i] mod 2=0
then s:=s+sqr(a[i]);
writeln(s);
readln;
readln
end.