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)
skononova01
13.12.2021
Классифика́ции — формализованная , в которой имеется множество объектов (ситуаций), разделённых некоторым образом на классы. задано конечное множество объектов, для которых известно, к каким классам они относятся. это множество называется выборкой. классовая принадлежность остальных объектов неизвестна. требуется построить алгоритм, способный классифицировать (см. ниже) произвольный объект из исходного множества. классифици́ровать объект — значит, указать номер (или наименование) класса, к которому относится данный объект. классифика́ция объекта — номер или наименование класса, выдаваемый алгоритмом классификации в результате его применения к данному конкрет