8класс
Страница 153 §3.4 номер 6, ГДЗ по информатике за 8 класс к учебнику Босовой
Номер 6. Дано натуральное трёхзначное число. Напишите программу, которая определяет:
а) есть ли среди цифр данного числа одинаковые;
б) является ли данное число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
а) есть ли среди цифр данного числа одинаковые;
б) является ли данное число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево.
а)
program z6a;
var
x, a, b, c: integer;
begin
write('введи х - трехзначное число>');
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 write('Да') else write('Нет');
end.
б)
program z6b;
var
x, a, b: integer;
begin
write('введи х - трехзначное число>');
readln(x);
a := x mod 10;
b := x div 100;
if (a = b) then write('Перевертыш') else write('Нет');
end.
