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. // Конец программы
126 дисков
Объяснение:
Рассмотрим 6го покупателя
х-было
0,5х+1-продал
осталось 0
х-(0,5х+1)=0
х-0,5х-1=0
0,5х=1
х=1:0,5=2
Аналогично 5й покупатель
х-(0,5х+1)=2
х-0,5х-1=2
0,5х=3
х=3:0,5=6
Аналогично 4й покупатель
х-(0,5х+1)=6
х-0,5х-1=6
0,5х=7
х=7:0,5=14
Аналогично 3й покупатель
х-(0,5х+1)=14
х-0,5х-1=14
0,5х=15
х=15:0,5=30
Аналогично 2й покупатель
х-(0,5х+1)=30
х-0,5х-1=30
0,5х=31
х=31:0,5=62
Аналогично 1й покупатель
х-(0,5х+1)=62
х-0,5х-1=62
0,5х=63
х=63:0,5=126
ответ: Попов принес на ярмарку 126 дисков