Напишите программку, которая в последовательности целых чисел определяет количество чётных

Напишите программку, которая в последовательности целых чисел определяет количество чётных чисел, кратных 3. Программка получает на вход целые числа. Количество введённых чисел неизвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не заходит в последовательность). Количество чисел не превосходит 1000. Введённые числа по модулю не превосходят 30 000. Программка обязана вывести одно число: количество чётных чисел, кратных 3.

Задать свой вопрос
1 ответ
Program hhh54;
var i,x,k:longint;
begin
  k:=0;
  for i:=1 to 1000 do
    begin
      read (x);
      if x mod 6 = 0 then k:=k+1;
      if x = 0 then 
        begin
          break
        end;
    end;
  write (k-1);
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт