И ОБЪЯСНИТЕ ПОДРОБНО: Дано трехзначное число. Напишите программу, которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые: Пример входных данных Пример выходных данных 123 Нет 121 Да 222 Да
if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then
writeln('Да')
else
writeln('Нет');
end.
Объяснение:
program same; // Название программы
var
number: string; // Создание строковой переменной number
begin // Начало программы
read(number); // Считываем значение переменной number с клавиатуры
if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then // Если ((1 цифра = 2 цифре) ИЛИ (2 цифра = 3 цифре) ИЛИ (1 цифра = 3 цифре))
Однажды Ослик не знал чем заняться. Все его друзья уехали кто куда: кто к бабушке в деревню, кто на море теплое, а кто вообще в лес, ягоды собирать. И стало ослику скучно. Но вот он увидел книгу с ноутбуком, и думает. Думает, что бы выбрать. Если выберет книгу, то быстро ее прочитает и это ему не так тем более она скучная. Вот ноутбук другое дело - там и поиграть можно, и с друзьями пообщаться, и спросить что-нибудь в интернете, да узнать что-нибудь новое. Вот ослик и выбрал ноутбук. И стал играть в нем в игры. Так несколько лет. Ослик все играл, да играл, а его друзья уже давно себе нашли работу, завели семью и все у них хорошо. А ослик так и потратил половину своей жизни, а в дальнейшем и всю жизнь, на игру. Так что не играйте в игры, а учитесь, развивайтесь и читайте книги! Не будьте осликами.
program same;
var
number: string;
begin
read(number);
if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then
writeln('Да')
else
writeln('Нет');
end.
Объяснение:
program same; // Название программы
var
number: string; // Создание строковой переменной number
begin // Начало программы
read(number); // Считываем значение переменной number с клавиатуры
if ((number[1] = number[2]) or (number[2] = number[3]) or (number[1] = number[3])) then // Если ((1 цифра = 2 цифре) ИЛИ (2 цифра = 3 цифре) ИЛИ (1 цифра = 3 цифре))
writeln('Да') // Выводим Да
else // Иначе
writeln('Нет'); // Выводим Нет
end. // Конец программы