Предмет: Информатика,
автор: ArinaSel
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 внутренний цикл не будет все равно выполняться.
Похожие вопросы
Предмет: Математика,
автор: anytkamilka110
Предмет: Английский язык,
автор: mariamnakhmaruk
Предмет: Астрономия,
автор: qwe078
Предмет: Физика,
автор: малая1703