Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Написать программу в Pascal

Marat Знаток (253), закрыт 4 года назад
Определить, есть ли среди цифр заданного числа одинаковые цифры. (Число пользователь вводит сам) Сделать программу нужно через Pascal с помощью REPEAT. Помогите пожалуйста.
Лучший ответ
франциск 1 Просветленный (23853) 4 года назад
var
a: set of byte;
k: byte;
n: integer;
f: boolean;

begin
a := [];
f := true;
readln(n);
repeat
k := n mod 10;
if k in a then
begin
f := false;
write(' повтор', k, ' ');
end;
include(a, k);
n := n div 10
until n = 0;
if f then writeln('Повторов нет');
end.
Остальные ответы
Высший разум (1270979) 4 года назад
program q217617616;
var
a: Integer;
s0, s1: set of Byte;
begin
ReadLn(a);
a := Abs(a);
repeat
if a mod 10 in s0 then
s1 := s1 + [a mod 10]
else
s0 := s0 + [a mod 10];
a := a div 10;
until a = 0;
for a := 0 to 9 do
if a in s1 then
Write(a);
end.
Похожие вопросы