tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль ввести целое число
Паскаль ввести целое число и определить верно ли что в его записи есть две одинаковые цифры
AgumiChan
3 10.07.2019 16:20
5
Ответы
sayanasssss
03.10.2020 00:20
Var
N : Longint;
s : Set of Byte;
F : Boolean;
Begin
s:=[]; F:=False;
Readln(N);
While (N>0) and not F do
If not ((N mod 10) in s) then
Begin
Include(s,N mod 10);
N:=N div 10;
end else F:=True;
Writeln(F);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
alena3211
22.02.2021 19:16
Напишите программу, которая меняет местами два соседних элемента списка (a[0] и a[1], a[2] и a[3] ...и т.д.). Если количество элементов нечетное, то последнее число должно остаться...
gruzz300
22.02.2021 19:14
Какие форматы графических файлов не поддерживает Paint A. jpegB. gifC. tiffD. png...
Islikzaziy
22.02.2021 19:14
Какие выбрать наушники игровые до 2300 руб....
галибович
22.02.2021 19:14
Составьте программу, которая вводит целое число. И проверяет, является ли это число положительным или отрицательным. И выводит сообщение «Это число положительное». Иначе сообщение:...
Viktoria235601
22.02.2021 19:13
Қандай шарт кіркітірілген деп аталады...
vborisenko75
17.06.2019 04:10
Файл може мати назву cat або dog і розширення bmp,jpg або gif .скільки різних імен файлів можна скласти? запиши ці імена...
tolya22112016
17.06.2019 04:10
)накопитель, в котором информация считывается с лазера 1)выберите один ответ: 1. флэш-память 2. винчестер 3. флоппи-диск 4. cd-rom 2)параметры устройств эвм, влияющие на ее быстродействие...
diko2009
17.06.2019 04:10
Скакими информационных моделей объектов вы знакомы ?...
Полина33337
27.07.2019 07:10
Массив а вводится с клавиатуры. вывести только нечетные элементы. размер произвольный. сросно нужно решить в ! буду !...
Фара1323
27.07.2019 07:10
(abc paskal)нужно полностью составить программу,от начала и до конца: дан массив из 10 целых чисел.удалите из него первый элемент кратный 3...
Популярные вопросы
Нужно быстренько сделать англ язык ответить буду благодарна...
2
Здесь чары и месть, ... и честь арабская нчь)...
3
процес збільшення кількості міст і населення в них на посилення їхньої ролі економічних...
2
Раз царица на лугу, На зеленом берегу Ручейка была одна; Горько плакала она.(В.А....
1
Выполни вычиьание: распишите ...
3
Ex: 1.1 , 1.2, 1.4 page 13 1.1 Complete these sentences with words from A opposite....
3
упростить выражение. sin(П+β)cos(2П--β) / td(П--β)cos(П--β)...
3
История 6 класс. Параграф 10. 1 ч.Выписать в тетради в каком направление развивалась...
1
в одиночестве жить не всякий распространенное предложение или нет?...
2
Сравните числа. Найдите их сумму и разность 5 целых 7/185/12...
1
N : Longint;
s : Set of Byte;
F : Boolean;
Begin
s:=[]; F:=False;
Readln(N);
While (N>0) and not F do
If not ((N mod 10) in s) then
Begin
Include(s,N mod 10);
N:=N div 10;
end else F:=True;
Writeln(F);
end.