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

Question

Информатика

Емельяныч

22 января, 17:26

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

+2

Ответы (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.