Question

Дано трехзначное число. Если число сотен равно единицам то вывести нет иначе да. PascalABC

Answer 1

var n: integer;

begin

readln(n);

if n mod 10=n div 100 then

write('нет') else write('да');

end.

Answer 2

Вот пример кода на PascalABC, который решает данную задачу:

pascalCopy code
program CheckHundredsAndOnes;

var
  number: integer;
  hundreds, ones: integer;

begin
  write('Введите трехзначное число: ');
  readln(number);

  // Вычисляем цифры сотен и единиц
  hundreds := number div 100;
  ones := number mod 10;

  // Проверяем условие и выводим результат
  if hundreds = ones then
    writeln('Нет')
  else
    writeln('Да');
end.

В этом коде мы считываем трехзначное число от пользователя и сохраняем его в переменной number. Затем мы используем операторы деления и остатка от деления для вычисления цифр сотен и единиц соответственно. После этого мы проверяем условие hundreds = ones, и если оно выполняется, выводим "Нет", в противном случае выводим "Да".