Напишите программу,которая в последовательности натуральных чисел определяет количество трехзначных чисел кратных 4.программа получает на вход натуральные числа,количество введённых неизвестно ,последовательность чисел заканчивается числом 0(0-признак окончания ввода ,не входит в последовательность).количество чисел не превышает 1000.введенные числа не превышают 30000.программа должна вывести одно число : количество трехзначных чисел ,кратных 4.входные данные: 120; 9; 365; 4; 0.выходные данные: 1.

Privet34522 Privet34522    3   29.07.2019 15:30    3

Ответы
vihareva08 vihareva08  27.09.2020 13:05
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
  var k:=0;
  var n:integer;
  Writeln('Вводите натуральные числа; 0 - окончание ввода');
  repeat
    Read(n);
    if (n>99) and (n<1000) and (n mod 4=0) then Inc(k)
  until n=0;
  Writeln(k)
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика