С клавиатуры вводится трехзначное число. Проверить, есть ли среди его цифр цифры кратные трем. Если Есть, товыдать значение этих цифр на экран. Если нет, то выдать на экран сообщение:"таких цифр нет".

var   i,d,n,k:integer; begin   Write('Введите трехзначное натуральное число: ');   Read(n);   k:=0;   for i:=1 to 3 do begin     d:=n mod 10;     if d mod 3=0 then begin       Inc(k);       Write(d,' ')       end;     n:=n div 10     end;   if k>0 then Write('- цифры, кратные трем')   else Write('Таких цифр нет') end. Примеры Введите трехзначное натуральное число: 569 9 6 - цифры, кратные трем Введите трехзначное натуральное число: 184 Таких цифр нет Замечание: в программе считается, что цифра 0 также кратна трем (как и всем другим числам), поскольку остаток от деления от нуля на 3 равен 0. Если это не так, то замените условие d mod 3 = 0 на (d mod 3 = 0) and (d>0)