Форум программистов, компьютерный форум, киберфорум
Наши страницы

Pascal (Паскаль)

Войти
Регистрация
Восстановить пароль
 
Nvincere
-1 / 0 / 0
Регистрация: 17.12.2015
Сообщений: 3
#1

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

17.12.2015, 19:18. Просмотров 223. Ответов 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
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, верно ли, что в десятичной записи целого числа есть две одинаковые цифры (Pascal):

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

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

Вывести все трехзначные числа в которых есть две одинаковые цифры - Pascal
Вывести на экран все трех значные числа в которых есть две одинаковые цифры.Причем реализовать программу надо без перебора чисел ...

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

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

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

1
JokeR.BY
CAPITAL OF ROCK!
1278 / 705 / 575
Регистрация: 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
Привет! Вот еще темы с ответами:

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

Найти все цифры десятичной записи числа - Pascal
Найти все цифры десятичной записи числа 3^(2^(3^2)).

Напечатать все цифры десятичной записи числа - Pascal
Всем добрый вечер!Нужна ваша помощь,заранее спасибо!!! Напечатать все цифры десятичной записи числа 1!+2!+...+n!(Рекомендация:...

Дано натуральное n-значное число P. Верно ли что число содержит три одинаковые цифры. - Pascal
Люди помогите - нужно програмку написать с помощью процедур и функций - собственно вот: Дано натуральное n-значное число P. Верно ли что...


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

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

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