Вопрос по информатике:
Free pascal! Описать функцию R(a), которая определяет есть ли в заданном пятизначном числе одинаковые числа.
Пожаловаться
- 26.06.2018 05:58
- Информатика
- remove_red_eye 11847
- thumb_up 36
Ответы и объяснения 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.
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.
Пожаловаться
- 27.06.2018 11:19
- thumb_up 49
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы