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

а) является ли данное число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево:
Входные данные
122
121
222
Выходные данные
Нет
Перевертыш
Перевертыш
var
n: integer;
begin
write(‘n > > ‘);
readln(n);
if (n div 100) = (n mod 10) then writeln(‘Перевертыш’)
else writeln(‘Нет’)
end.
Окно вывода
n > > 122
Нет
n > > 121
Перевертыш
n > > 222
Перевертыш
б) есть ли среди цифр данного числа одинаковые:
Входные данные
123
121
222
Выходные данные
Нет
Да
Да
Протестируйте программу на приведённых входных данных.
var
n,a,b,c: integer;
begin
write(‘n > > ‘);
readln(n);
a:=n div 100;
b:=n mod 100 div 10;
c:=n mod 10;
if (a=b)or(a=c)or(b=c)then writeln(‘Да’)
else writeln(‘Нет’)
end.
Окно вывода
n > > 123
Нет
n > > 121
Да
n > > 222
Да

а) Для трёхзначного числа $$n$$ первая цифра находится как $$n \ div \ 100$$, а последняя — как $$n \ mod \ 10$$. Если они равны, то число читается одинаково слева направо и справа налево.

var
n: integer;
begin
write(‘n>>’);
readln(n);
if (n div 100) = (n mod 10) then writeln(‘Перевертыш’)
else writeln(‘Нет’)
end.

Проверка на данных из условия:

б) Выделим все цифры числа:

$$a = n \ div \ 100$$

$$b = n \ mod \ 100 \ div \ 10$$

$$c = n \ mod \ 10$$

Если хотя бы две цифры равны, то среди цифр числа есть одинаковые.

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

Проверка на данных из условия: