Question

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

Answer 1

Ответ:

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('нет');

Объяснение: