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

Question

Информатика

Галиша

4 ноября, 15:24

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

+5

Ответы (1)

Знаешь ответ?

Игорич · Answer 1

var a: integer;

begin

writeln ('Введите четырехзначное число');

readln (a);

if a div 1000 = (((a mod 1000) mod 100) mod 10) then writeln ('Верно') else writeln ('Не верно');

end.