Question

Дано трехзначное число. a. Верно ли, что все его цифры одинаковы? b. Определить, есть ли среди его цифр одинаковые. Помогите язык Паскаль

Answer 1

Ответ в файле.>>>>>>>

Answer 2

a. Верно ли, что все цифры трехзначного числа одинаковы?

Для проверки, являются ли все цифры трехзначного числа одинаковыми, можно сравнить первую цифру с остальными двумя цифрами. Если все три цифры равны, то можно сделать вывод, что все цифры числа одинаковы.

В языке Паскаль можно использовать следующий код для проверки:

var
  num, 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) and (digit2 = digit3) then
    writeln('Все цифры числа одинаковы.')
  else
    writeln('Цифры числа не одинаковы.');
end.

b. Определить, есть ли среди цифр трехзначного числа одинаковые.

Для определения, есть ли среди цифр трехзначного числа одинаковые, можно сравнить каждую цифру с остальными двумя цифрами. Если хотя бы две цифры равны, то можно сделать вывод, что среди цифр числа есть одинаковые.

В языке Паскаль можно использовать следующий код для проверки:

var
  num, digit1, digit2, digit3: integer;
  hasDuplicates: boolean;
begin
  // Ввод трехзначного числа
  writeln('Введите трехзначное число: ');
  readln(num);
  
  // Получение отдельных цифр числа
  digit1 := num div 100; // первая цифра
  digit2 := (num div 10) mod 10; // вторая цифра
  digit3 := num mod 10; // третья цифра
  
  // Проверка на наличие одинаковых цифр
  hasDuplicates := (digit1 = digit2) or (digit1 = digit3) or (digit2 = digit3);
  
  // Вывод результата
  if hasDuplicates then
    writeln('Среди цифр числа есть одинаковые.')
  else
    writeln('Все цифры числа различны.');
end.

Обратите внимание, что в обоих случаях предполагается, что пользователь вводит трехзначное число. Если пользователь вводит число с меньшим или большим количеством цифр, код может давать некорректные результаты.