Помощь - Поиск - Пользователи - Календарь
Полная версия: сть ли в записи числа три одинаковые цифры
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
djvu
Помогите сделать задание на целочисленную арифметику (строками пользоваться НЕльзя): Дано натуральное число n. Проверить, есть ли в записи числа три одинаковые цифры(n<=9999). Я вообще не придставляю как делать sad.gif
klem4
Что именно вызывет затруднения ? Не знаешь как разбить число на цифы ?

очень похожая задача: Различие цифр в числе
djvu
1)не ясен сам алгоритм разбиения числа на цифры
2)Как узнать что повторения цифры в числе 3??
volvo
djvu, ты по ссылке сходи, потом посмотрим, какие у тебя вопросы останутся...
djvu
По ссылке сходил. Но сделал не много по своему. Я забил каждую цифру в отдельный элимент массива. Но щас не знаю как в массиве найти 3 ОДИНАКОВЫХ элимента это мой последний вопрос.

var
n, i: integer;
mas: array[0 .. 4] of integer;
begin
readln(n);
while n>0 do begin
for i:=1 to 4 do
begin
mas[i]:=n mod 10;
n:=n div 10;
writeln(mas[i]);
{Здесь надо найти 3 одинаковых элимента массива???}

end;
end;
readln;
end.


klem4
var
counts: Array [0..9] of Integer = (0, 0, 0, 0, 0, 0, 0, 0, 0, 0);
n: Integer;

begin
readln(n);

while (n > 0) do begin
inc(counts[n mod 10]);
n := n div 10;
end;

for n := 0 to 9 do
if counts[n] = 3 then writeln(n);
end.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.