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

MrGowno MrGowno    3   13.05.2020 23:12    18

Ответы
lololoki03 lololoki03  14.10.2020 17:42

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

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика