Ответ: program ryazantsev;var n,k:integer;begink:=0;readln(n);while n <> 0 do beginif (n>=100) and (n<=999) and (n mod 4 = 0) then k:=k+1;readln(n);end;writeln(k)end.
Напишите программу, которая в последовательности натуральных чисел определяет количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество трёхзначных чисел, кратных 4. (while, repeat). — Правильный ответ на вопрос найдете ниже
17.08.2019 · 1