Составьте программу в Паскале, пожалуйста Дано натуральное число, верно ли что оно начинается и заканчивается одной и той же цифрой
More Questions From This User See All
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
~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.