Решите задачу (Паскаль)

Решите задачу (Паскаль)
Гость
Ответ(ы) на вопрос:
Гость
var a,k:integer; begin k:=0; readln(a); while a<>0 do  begin  if (a<10)and(a mod 3=0) then k:=k+1;  readln(a);  end; writeln(k); end. Пример: 12 5 34 9 8 6 0 2
Не нашли ответ?
Ответить на вопрос
Похожие вопросы