Напишите программу, которая в последовательности натуральных - вопрос №5493055 от XASSA 27.02.2021 10:29

Question

Информатика: Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). количество чисел не превышает 1000. введённые числа не превышают 30 000. программа должна вывести одно число: количество трёхзначных чисел, кратных 4.

XASSA · Answer

//Pascal ABC.NET v3.1 сборка 1172begin Var seq:=SeqWhile(ReadInteger(),x - ReadInteger(),x - x 0).ToArray; writeln(seq.Where(x - length(inttostr(x))=3).where(x - x mod 4=0).Count);end.Пример ввода:4444444221238880Пример вывода:2...