Предмет: Информатика,
автор: Dastiforever
Дано пятизначное число, определить содержит ли оно одинаковые числа ? Паскаль ПОЖАЛУЙСТА
Ответы
Автор ответа:
1
//программа будет работать для чисел, которые входят в диапазон longint
var
x : longint;
save, checker, lv : integer;
begin
checker := 0;
readln(x);
x := abs(x);
while (x <> 0) and (checker < 1) do
begin
checker := 0;
save := x mod 10;
x := x div 10;
lv := x;
while lv <> 0 do
begin
if lv mod 10 = save then
checker := 1;
lv := lv div 10;
end;
end;
if (checker = 1) then
writeLn('YES')
else
writeLn('NO');
end.
Похожие вопросы
Предмет: Окружающий мир,
автор: юлукова
Предмет: Другие предметы,
автор: polinamezenina72
Предмет: Русский язык,
автор: мадияр14
Предмет: Математика,
автор: linakashinskayp7d14t
Предмет: Математика,
автор: kirilllirikggg