logo
Войти Регистрация Спроси ai-bota


Варька111111111
06.04.2020 07:07

Дана последовательность чисел, завершающихся 0. найти сумму кратных чисел, кратных 4. (паскаль)

Нажмите на рекламу ниже и сразу увидите ответ
↓
Популярные вопросы:
abbasbayaliev
abbasbayaliev
15.03.2022 06:48
Що сприяло повсюдному поширенню персональних комп ютері...
NurBanu1
NurBanu1
23.06.2021 16:36
Ккакой разновидности языков естественных или формальных может быть отнесена морская флажковая азбука...
MarkZz
MarkZz
23.06.2021 16:36
1)сколько бит информации несет сообщение: пойманная в пруду рыба - щука , если всего в пруду 256 карасей, 40 щук, и 104 карпа? 2)в таксопарке 10 автомобилей волга , 7 автомобилей лада...
oleg34643
oleg34643
23.06.2021 16:36
Размер документа 11 байт а на диске 4 кб почему...
heh18
heh18
23.06.2021 16:36
Составьте программу, которая заполняет массив случайными целыми числами в диапазоне от 0 до 2 и выводит на экран количество элементов, равных 1...
mashtaleroksana
mashtaleroksana
08.12.2021 07:03
Даны четыре действительных числа: x1, y1, x2, y2. Напишите функцию distance(x1, y1, x2, y2), вычисляющая расстояние между точкой (x1,y1) и(x2,y2). Считайте четыре действительных числа...
bayramovelnur
bayramovelnur
20.05.2020 13:56
Написать (любую на выбор) в с#. 1.дан массив чисел, размерность которого n. подсчитать, сколько в нем отрицательных, положительных и нулевых элементов. 2.даны целые числа a1,. вывести...
anastasiaperova
anastasiaperova
21.09.2021 06:45
Переведите числа из двоичной системы в десятичную 123 721 526...
katyastrilchuk
katyastrilchuk
15.08.2020 21:39
) var i,n:integer; a,b,p:real; begin p:=1; read(b); read(n); for i:=1 to n do begin read(a); if (a =0)and(a =b) then p:=p*a; end; writeln(p:1:1); end....
AzalieySagaz
AzalieySagaz
20.11.2020 19:30
Разработайте алгоритм для выполнения рисунка по образцу (буквы Ш, К, Ц) средствами графического исполнителя «Чертёжник». Завершить выполнение можно в любой точке. Для проверки нужно...
Ответ:
Olga2442
09.10.2020 03:36

begin

ReadSeqIntegerWhile(t->t<>0).Where(t->t mod 4 =0).Sum.Println

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота