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

269

289

Посмотреть ответы 2

Ответы на вопрос:

jenkatimosh

Информатика

4,7(96 оценок)

Var i, count, number: integer; begin count : = 0; i : = 0; writeln('введите последовательность чисел'); repeat readln(number); if (number > = 100) and (number < = 999) and (number mod 4 = 0) then count : = count + 1; i : = i + 1 until (number = 0) or (i > = 1000); writeln('кол-во 3значных чисел кратных 4 =', count); end.