Вопрос, который вызвал трудности

ПОЖАЛУЙСТА!!!!напишите программу которая в последовательности целых чисел определяет количество чисел определяет наименьшее число кратное 3 и оканчивающейся на 6

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме.

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:


var a, k: integer;
begin
 t:=0;
 readln(a);
 while a<>0 do begin
     if (a mod 2 = 0) and (a mod 6 = 0) then
        k := k + 1;
     readln(a);

     end;
 writeln(k)
end.