1. Информатика
  2. Дана последовательность чисел,

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

Косалинааа Косалинааа    1   29.09.2019 19:40    0

Ответы
timkaserka timkaserka  09.10.2020 03:36

begin

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mayte mayte  24.11.2020 09:19
Составить программувычисления значений функцииy={█(cosnx+〖(x-2)〗^2+∛(n-1,) если x∈[0,n)@sinnx-(x+2)^2-∛(n+1), если x∈[-n,0))},в пяти точках полуинтервала [-n,n), используя...
snizhanadob snizhanadob  24.11.2020 09:19
Что такое MS Excel? 2. В чем заключается основная функция MS Excel? 3. Запиши алгоритм запуска программы MS Excel 4. Из каких основных частей состоит структура окна программы...
OSTROVSKAYA100 OSTROVSKAYA100  24.11.2020 09:19
Установите соответствие между диапазонами клеток и количеством ячеек. 1. B1:E42. A2:А73. Cl:F14. D5:F10а)18б)4в)6г)16​...
belovomp belovomp  09.09.2019 14:40
Диапазон от 64 до 128. какое кол-во в информации несёт сообщение об угадывание числа из этого диапазона?...
Katenkalovely Katenkalovely  09.09.2019 14:40
Калькулятор работает в четверичной системе счисления и для вывода числа на экран имеет только 3 знакоместа. с каким наибольшим числом может работать калькулятор? ответ...
Ирма69 Ирма69  03.08.2019 20:50
Влыжном кроссе участвуют 111 спортсменов. специальное устройство регистрирует прохождение каждым из участников промежуточного финиша, записывая его номер с использованием...
ЧакН0рис ЧакН0рис  09.09.2020 22:26
Сканируется цветное несжатое изображение размером 3 х 4 см2. Разрешающая сканера — 1200 х 1200 dpi, глубина цвета — 16. Какой информационный объём будет иметь полученный...
ellia2 ellia2  08.09.2020 22:44
Есть матрица 3 на 4. Необходимо с этой матрицы перевести одновибирний массив все числа которые кратны 2 и 3....
kopatirina94 kopatirina94  08.09.2020 22:50
Тапсырма 1. 6 Мб ақпаратты байт, Кб-та өрнектеңдер.2. Кітаптағы 110 Мб ақпаратты «Информатика» сөзінің қаншасыменауыстыруға болады?3. Толық аты-жөндерің қанша бит және...
sasha10072004 sasha10072004  19.11.2020 16:23
Вычисли значение математического выражения в MS Excel: (97+102)−2(79:(5+19)). (ответ округли до сотых)...

Популярные вопросы