№1. Множества.
Вводится натуральное число. Подсчитать количество различных цифр в его записи.
Что получилось у меня: Оффтоп
uses crt;
var s:string;
m:set;
k,i:byte;
begin
repeat
k:=0;
writeln('s=');
readln(s);
for i:=1 to length(s) do
if not(s[i] in ['0'..'9']) then k:=1;
if k=1 then writeln('ne natural'noe chislo');
until k=0;
m:=[];k:=0;
for i:=1 to length(s) do
if not(s[i] in m) then
begin
k:=k+1;
m:=m+[s[i]];
end;
write('k=',k);
readln
end.
Поверьте ее.
№2. Записи.
Задан набор из N кубиков (N указано в константе). Каждый кубик характеризуется следующими параметрами: размер ребра, вес, цвет. Вывести на экран порядковый номер и параметры самого тяжелого кубика.
Что получилось у меня: Оффтоп
