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. // Конец программы
program restoran;
var
first, second, third, fourth: integer;
first_tip, second_tip, third_tip, fourth_tip, amount: real;
begin
amount := 0;
read(first, second, third, fourth);
first_tip := first / 100 * 15;
second_tip := second / 100 * 15;
third_tip := third / 100 * 15;
fourth_tip := fourth / 100 * 15;
amount := first_tip + second_tip + third_tip + fourth_tip;
write(amount);
end.
Объяснение:
program restoran; // Название программы
var
first, second, third, fourth: integer; // Создание целочисленных переменных, отвечающих за счёт, на который пообедали гости
first_tip, second_tip, third_tip, fourth_tip, amount: real; // Создание вещественных (с плавающей точкой) переменных, отвечающих за размер чаевых и сумму чаевых соответственно
begin // Начало программы
amount := 0; // Сумма = 0
read(first, second, third, fourth); // Считываем значения счетов каждого гостя с клавиатуры
first_tip := first / 100 * 15; // Чаевые с первого счета
second_tip := second / 100 * 15; // Чаевые со второго счета
third_tip := third / 100 * 15; // Чаевые с третьего счета
fourth_tip := fourth / 100 * 15; // Чаевые с четвертого счета
amount := first_tip + second_tip + third_tip + fourth_tip; // Сумма чаевых
write(amount); // Вывод суммы
end. // Конец программы
2.Отличается тем,что память одного человека(он помнит свои воспоминании,их никто кроме него не может знать),а память человечества-это Например,несколько людей были вместе на собрании у них будут одинаковые воспоминания,которые они могут обсудить между собой.