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

Дан набор ненулевых целых чисео; признак его завершения - число 0. вывести колличество чисел в наборе с 3й цифрой 2

Ответ:

VidioVizard

11.08.2020 10:36

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

ReadSeqIntegerWhile(t -> t <> 0)

.Where(t -> Abs(t) mod 1000 div 100 = 2).Count.Print

end.

Пример131 -1085 -1031 -1278 984 259 5 704 1268 -1119 -833 845 327 -615 -252 -761 682 -563 -1264 -426 05

0,0(0 оценок)

Популярные вопросы: Информатика

alinashutkina12345

16.10.2022 23:28

Написать программу в паскале. найти все трехзначные числа, которые можно представить разностью между квадратом числа, образованного первыми двумя цифрами и квадратом третьей цифры....

wjp39391

23.05.2020 21:26

№17. для какого из имён ложно высказывание: не (первая буква согласная) или (последняя буква гласная)? 1) максим 2) марина 3) ольга 4) олег...

KatyaD2005

14.12.2020 01:20

12. учащимся 8 класса необходимо написать программу для младших школьников для проверки знаний таблицы умножения. выберите подходящее программное обеспечение: a) delphi, pascal,...

olgaocher

14.12.2020 01:20

Выражение а+а(вектор) p.s. над двумя буквами а расположена длинная черта как общий вектор...

кирил2088

14.12.2020 01:20

Втаблице запросы и количество страниц, которые нашел поисковый сервер по этим запросам в некотором сегменте интернета: торты| пироги 12000торты & пироги 6500 пироги 7700 сколько...

Екатерина2610

28.01.2020 02:13

Ка ждый сотрудник предприятия получает электронный пропуск, на котором записаны личный код сотрудника, код подразделения и некоторая дополнительная информация. личный код состоит...

artisx

11.10.2021 09:07

Общие количество тетрадей для проверки у учителя составляет 86 шт. причём по тетрадей больше, чем по на 15%. какой количество тетрадей по предстоит проверить учителю?...

ZhannaMeer

05.02.2022 20:44

Прочитайте текст и выполните .в ix-x вв. арабская культура достигла наивысшего распвета. её достижения обогатили культуру многих народов. в часткости вародов средневековой европы....

synnjhcx

08.12.2021 06:57

Нужно сделать доклад по теме проблемы социальной мобильности в россии по плану 1) найти информацию о ней 2) изучить материал 3) выяснить значение терминов 3) вывод 4) и почему я...

mahin2

25.10.2021 11:15

Напишите композиторов соответствующих данным эпохам: 1. античность 2. средневековье 3. возрождение 4. классицизм 5. романтизм 6. музыка 20века 7. современность...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку