Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until
Ввести натуральное число и определить, какие цифры встречаются несколько раз. С помощью repeat until
Гость
Ответ(ы) на вопрос:
ГостьVar a : Integer;
s : Set of Byte;
Begin
s:=[];
Readln(a);
Repeat
If (a mod 10) in s then Write(a mod 10:2) else Include(s,a mod 10);
a:=a div 10;
Until a=0;
Writeln;
end.
Не нашли ответ?
Похожие вопросы