Даю 23 балла!Напишите программку, которая в последовательности естественных чисел определяет

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

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


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

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

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

Войти на сайт