Question

Дано натуральное число:
− найти сумму цифр этого числа;
− верно ли, что число начинается и заканчивается одной и той же цифрой.

Answer 1

program asdf;
var a,i.b:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
a:=length(s);
b:=0;
for i:=1 to a do
b:=b+s[i];
writeln(b);
if s[1]=s[a] then writeln('равны') else writeln('неравны');
end.