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

Question

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

Comments

pascal или c++?

---

pascal

Answer 1

Ответ:

var

a, z, x: integer;

begin

z:=0;

x:=0;

read(a);

while a <> 0 do

begin

if (a mod 3 = 0) and (a mod 2 <> 0)

then

z := z + 1 ;

x:=x+1;

read(a);

end;

writeln(x,' ', z);

end.

Comments

исправила.

---

Ну наверно автор вопроса не сам это условие придумал.

---

не спорю.

---

Вы забыли обнулить z

---

извиняюсь, спасибо.

---

Кстати, вот начало уловия: "Напишите программу которая в последовательности целых чисел определяет количество нечетных чисел, кратных 3. ...". Тут сразу говорится о нечетных. Что же Вас ввело в заблуждение?

---

Я думаю, на самом деле эти две ошибки - следствие спешки. Но куда Вы спешили - не знаю )))

---

я слишком невнимательна, когда-нибудь это меня погубит, извиняюсь.

---

Ну, разве только если Вы будете лечиться, ставя себе диагноз по сайтам Интернета и неверно прочитаете что-то )))

---

))

Answer 2

// PascalABC.NET

begin

 var (n, k) := (0, 0);

 var a: integer;

 repeat

   a := ReadInteger;

   if a <> 0 then

   begin

     n += 1;

     if a.IsOdd and (a mod 3 = 0) then

       k += 1

   end

 until a = 0;

 Print(n, k)

end.