С клавиатуры вводят 4 числа. Определить есть ли среди них кратные 6.информатика 9 класс​

Вопрос школьника по предмету Информатика

С клавиатуры вводят 4 числа. Определить есть ли среди них кратные 6.
информатика 9 класс​

Ответ учителя по предмету Информатика

Ответ:

for i := 0 to 3 do

begin

read(a)

k := 0

if(a mod 6) k := k+1;

end;

if(k > 0) then write(‘да’);

else write(‘нет’);

Объяснение: