Дано натуральное трёхзначное число n. Разработайте, отладьте и протестируйте программу, определяющую:
а) является ли данное число «перевёртышем», т. е. числом, десятичная запись которого читается одинаково слева направо и справа налево:
| Входные данные | Выходные данные |
|---|---|
| 122 | Нет |
| 121 | Перевёртыш |
| 222 | Перевёртыш |
б) есть ли среди цифр данного числа одинаковые:
| Входные данные | Выходные данные |
|---|---|
| 123 | Нет |
| 121 | Да |
| 222 | Да |
Протестируйте программу на приведённых входных данных.
Разложим число на разряды. Операция div даёт целую часть частного, а mod — остаток: первая цифра
var n, a, b, c: integer;
begin
readln(n);
a := n div ;
b := (n div ) mod ;
c := n mod ;
if a = c then writeln('Перевёртыш')
else writeln('Нет');
if (a = b) or (a = c) or (b = c) then
writeln('Да')
else writeln('Нет')
end.
Для
| n | a | b | c | Перевёртыш? | Есть одинаковые? |
|---|---|---|---|---|---|
| Нет | Да | ||||
| Перевёртыш | Да | ||||
| Перевёртыш | Да | ||||
| Нет | Нет |
Итак, каждая строка даёт ожидаемый результат.
а)
