Задание 6 Параграф 3.4 ГДЗ Босова 8 класс (Информатика)

Задача

Дано трёхзначное число. Напишите программу, которая определяет:
а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
б) является ли число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

Подробный ответ

Пусть введено трёхзначное число $$x$$. Тогда:

последняя цифра: $$a = x \bmod 10$$;
первая цифра: $$b = x \div 100$$;
средняя цифра: $$c = x \bmod 100 \div 10$$.

а) Чтобы определить, есть ли среди цифр одинаковые, достаточно проверить равенство любых двух цифр: $$a=b$$, $$a=c$$ или $$b=c$$.

б) Число является «перевёртышем», если первая и последняя цифры равны, то есть $$a=b$$.

program Chc;
var
  x, a, b, c: integer;
begin
  readln(x);
  a := x mod 10;
  b := x div 100;
  c := x mod 100 div 10;
  if (a = b) or (a = c) or (b = c) then writeln(‘Да’) else writeln(‘Нет’);
end.

program Chc;
var
  x, a, b: integer;
begin
  readln(x);
  a := x mod 10;
  b := x div 100;
  if (a = b) then writeln(‘Перевёртыш’) else writeln(‘Нет’);
end.