Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Nvincere
-1 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 3
1

Определить, верно ли, что в десятичной записи целого числа есть две одинаковые цифры

17.12.2015, 19:18. Просмотров 290. Ответов 1
Метки нет (Все метки)

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. (без массивов, используя функции while...do begin , for, и тп) Попытался написать сам, но при вводе больших чисел с несколькими повторами цифр(222, 12223), "да" и "нет" всплывают несколько раз, чего быть не должно. Мой неверный вариант(сделал все, что смог, правда)):
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var: a,b,c: integer;
begin
writeln('Введите целое число');
read(a);
while a<>0 do begin
b:=a mod 10;
a:=a div 10;
if c=b then begin
writeln('Да');
end
else c:=b;
end;
writeln('Нет');
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
17.12.2015, 19:18
Ответы с готовыми решениями:

Ввести целое число и определить, верно ли, что в его записи есть две одинаковые цифры. Найти сумму, среднее арифметическое и количество цифр в числе
Ввести целое число и определить, верно ли, что в его записи есть две одинаковые...

Найти все четырёхзначные числа,в которых есть две одинаковые цифры
Найти все четырёхзначные числа,вкоторых есть две одинаковые цифры

Вывести все трехзначные числа в которых есть две одинаковые цифры
Вывести на экран все трех значные числа в которых есть две одинаковые...

Найдите все четырехзначные числа, в которых есть две одинаковые цифры
Помогите пожалуйста с програмированием в Паскале! задача: найдите все...

Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых есть цифры “2” и “5”
Найти все целые числа из промежутка от 10 до 200, в десятичной записи которых...

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 982
Регистрация: 03.03.2010
Сообщений: 2,284
Завершенные тесты: 2
17.12.2015, 20:30 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
const
    Answer: Array[Boolean] Of String = ('Нет', 'Да');
var
    x: LongInt;
    ans: Boolean;
    sob: Set Of Byte;
    temp: 0..9;
begin
    Write('Input x: '); ReadLn(x);
    x := Abs(x); sob := [];
    repeat
        temp := x mod 10;
        x := x div 10;
        ans := temp in sob;
        if (Not ans)
        then
            Include(sob, temp);
    until ((x <= 0) Or (ans));
    Write(Answer[ans]);
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.12.2015, 20:30

Вывести все четырехзначные числа в диапазоне от A до B, в записи которых есть 3 одинаковые цифры
Написал данную программу, но не могу понять, куда нужно вставить условие для...

Определить элементы целочисленного массива, в записи которых есть ровно 2 одинаковые цифры
Определить элементы целочисленного массива, в записи которых есть ровно 2...

Сосчитать среднее арифметическое тех отрицательных чисел, в десятичной записи которых встречается ровно две цифры 5
С клавиатуры вводятся целые числа. Окончание ввода – число ноль. Ноль...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru