Question

Free pascal! Описать функцию R(a), которая определяет есть ли в заданном пятизначном числе одинаковые числа.

Answer 1

Function R(A:longint):boolean;
Var
   C:array[1..5] of byte;
   i,j:byte;
Begin
For i:= 1 to 4 do
    Begin
    C[i]:=A mod 10;
    A:=A div 10
    End;
For i:= 1 to 5 do
    For j:=i+1 to 5 do
        if C[i] = C[j] then R:=true;
End;
Var
   A:longint;
Begin
Write('Введите пятизначное число: ');ReadLn(A);
if R(A) then Write('Да')
else WriteLn('Нет');
End.