Дано натуральное число: − найти сумму цифр этого числа; − верно ли, что число начинается и заканчивается одной и той же цифрой.
Дано натуральное число:
− найти сумму цифр этого числа;
− верно ли, что число начинается и заканчивается одной и той же цифрой.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы