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

Question

Информатика

Таисья

18 октября, 06:00

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

+3

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