Номер 9, страница 179 - гдз по информатике 8 класс учебник Босова, Босова

Вопросы и задания. Параграф 4.4. Программирование разветвляющихся алгоритмов. Глава 4. Начала программирования на языке Паскаль - номер 9, страница 179.

Условие.

9. Дано натуральное трёхзначное число n. Разработайте, отладьте и протестируйте программу, определяющую:

а) является ли данное число «перевертышем» т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево:

Входные данные	Выходные данные
122	Нет
121	Перевертыш
222	Перевертыш

б) есть ли среди цифр данного числа одинаковые:

Входные данные	Выходные данные
123	Нет
121	Да
222	Да

Протестируйте программу на приведенных исходных данных.

Решение.

а)
var
a, b, n: integer;
begin
writeln ('Введите трехзначное число');
readln (n);
a:= n mod 10;
b:= n div 100;
if a=b then writeln ('Перевертыш')
else writeln ('Нет');
end.
б)
var
a, b, c, n: integer;
begin
writeln ('Введите трехзначное число');
readln (n);
a:= n mod 10;
b:= n div 100;
c:= n mod 100 div 10;
if (a=b) or (b=c) or (a=c) then
writeln ('Да')
else writeln ('Нет');
end.