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

0 голосов
66 просмотров

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


Информатика (14 баллов) | 66 просмотров
Дан 1 ответ
0 голосов

var a: integer;

begin

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

  readln(a);

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

end.                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            

(2.1k баллов)