Question

ПОЖАЛУЙСТА, ПОМОГИТЕ И ОБЪЯСНИТЕ ПОДРОБНО: Дано трехзначное число. Напишите программу, которая определяет есть ли среди цифр заданного целого трехзначного числа одинаковые:Пример входных данных Пример выходных данных123 Нет121 Да222 ДаЯ не понимаю как это делать, помогите!!Язык программирования - паскаль

Answer 1

Ответ:

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. // Конец программы

Answer 2

Конечно, я могу помочь вам написать программу на языке Паскаль, которая определит, есть ли среди цифр трехзначного числа одинаковые. Вот пример такой программы:

pascalCopy code
program CheckDigits;
var
  num: integer;
  digit1, digit2, digit3: integer;
begin
  writeln('Введите трехзначное число:');
  readln(num);

  // Определяем отдельные цифры числа
  digit1 := num div 100;      // Первая цифра
  digit2 := (num div 10) mod 10;  // Вторая цифра
  digit3 := num mod 10;       // Третья цифра

  // Проверяем, есть ли одинаковые цифры
  if (digit1 = digit2) or (digit1 = digit3) or (digit2 = digit3) then
    writeln('Да')
  else
    writeln('Нет');
end.

Программа просит вас ввести трехзначное число. Затем она разбивает число на отдельные цифры с помощью деления и оператора остатка от деления. Затем она сравнивает цифры и выводит "Да", если есть хотя бы одна пара одинаковых цифр, и "Нет", если все цифры разные.

Надеюсь, эта программа поможет вам понять, как решить данную задачу на языке Паскаль. Если у вас возникнут дополнительные вопросы, не стесняйтесь задавать их!