понедельник, 11 декабря 2017 г.

ОГЭ-20.2: 7C84C1

Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, меньших 500 и кратных 3. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность).
Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
Программа должна вывести одно число: количество натуральных чисел, меньших 500 и кратных 3.
Пример работы программы:
Входные данные
Выходные данные
45
20
600
0
1
Ответ:
VaR a,b:integer; // а - число из последовательности
// b - количество искомых чисел
BeGiN
 b:=0; // Инициализация начального количества чисел удовлетворяющих условию
 a:=-1; // Инициализация числа как ненатурального
   while a<>0 do // Определение завершения ввода
     begin
       if (a mod 3 =0) and (a<500) // Если число кратно 3 И меньше 500
         then inc(b); //То посчитать число
       readln (a); // Ввод числа из последовательности
     end;
 writeln (b); // Вывод ответа
end.

Комментариев нет:

Отправить комментарий