Free pascal! Описать функцию R(a), которая определяет есть ли в заданном пятизначном числе одинаковые числа.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Я бы написал For i:= 1 to 4 do for j:=i+1 to 5 do, потому что для i=5 внутренний цикл не будет все равно выполняться.
Вас заинтересует
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад