Дано натуральное четырехзначное число, верно ли…

Задание:

Дано натуральное четырехзначное число, верно ли, что число начинается и заканчивается однойцифрой?

Решение:

var a: integer; begin writeln ('Введите четырехзначное число'); readln (a); if a div 1000=(a mod 1000) mod 100) mod 10) then writeln ('Верно') else writeln ('Не верно'); end.

Знаете другой ответ?

Отправить свой ответ