logo
Войти Регистрация Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
adimochka
adimochka
19.05.2020 17:56 •  Информатика

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

Показать ответ
Ответ:
ekaterinahbjdnxКатя
ekaterinahbjdnxКатя
09.10.2020 03:36

begin

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

end.

0,0(0 оценок)
Популярные вопросы: Информатика
даун47
даун47
05.12.2020 11:37
Создать любой типизированный файл ввести туда любую строку и подсчитать количество пробелов.их количество вывести в выходной файл. !...
05gazieva05
05gazieva05
28.04.2020 08:20
Дано логическое выражение: (a 2)and(a≤45) . Такое логическое выражение возвращает истину, лишь в том случае, когда истинны оба выражения, т.е.,...
РешОрше
РешОрше
26.03.2023 03:56
Дан целочисленный массив, заданный датчиком случайных чисел в интервалеот -100 до 500. Требуется умножить отрицательные значения элементов этогомассива на 10.(Язык Pascal)...
Яник111111111
Яник111111111
05.03.2021 09:21
Предложить свой вариант ПО для работы с графикой (кроме продуктов ADOBE) и подробно описать его по схеме: 1. Название, разработчик, история продукта 2. Назначение редактора...
Ира0386
Ира0386
16.12.2020 01:26
4. Напишите код программы, которая будет вычислять периметр фигуры. print () a=... b=... c=... p=... print (...) Дескриптор...
аньён1
аньён1
16.04.2021 07:53
Что будет напечатано в результате выполнения следующей программы, если значение R=-10? readln (R); if R=0 then Y:=R*10; if R 0 then Y:=R+10; if R 0 then Y:=R-10; writeln...
amiralimurodov
amiralimurodov
04.04.2022 19:51
Задание для Pascal. Задача только те элементы, значения которых кратно 12. Алгоритм: - заполнить массив элементами; - организовать цикл по суммированию элементов массива;...
lerabutsenko
lerabutsenko
24.01.2020 01:17
НЕ ХОРОШО ПОНЯЛА ТЕМУ Запиши математическое выражение (12+)2 на языке Паскаль. (При записи ответа используй прописные буквы). ответ:...
tanamakagonova
tanamakagonova
04.02.2022 04:35
Запиши математическое выражение (20+y)2 на языке Паскаль.​...
Mashabvur
Mashabvur
02.04.2023 20:45
Задача “Скидка”. Покупатели магазина пользуются 10% скидками, если стоимость покупки превышает k гривен. Составить ведомость, учитывающую скидки: покупатель, стоимость...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
О НАС
СООБЩЕСТВО
ПОМОЩЬ
App
.
.
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота