Предмет: Информатика,
автор: kamilaibragimova2706
Составьте программу в Паскале, пожалуйста Дано натуральное число, верно ли что оно начинается и заканчивается одной и той же цифрой
Ответы
Автор ответа:
1
~PascalABC.NET
var
x:longint;
st:longint;
begin
read(x);
st := x;
while (st > 9) do
st := st div 10;
if( st = (x mod 10)) then
write('YES')
else
write('NO');
end.
Интересные вопросы
Предмет: Английский язык,
автор: NastyaBotsanyuk
Предмет: Українська мова,
автор: 7373
Предмет: Английский язык,
автор: Аноним
Предмет: Математика,
автор: zaugolnikova180
Предмет: Математика,
автор: светлана406