Дано натуральное число:

- найти сумму цифр этого числа;

- верно ли, что число начинается и заканчивается одной и той же цифрой.

Question

Информатика

Арий

10 июля, 00:00

Дано натуральное число:

- найти сумму цифр этого числа;

- верно ли, что число начинается и заканчивается одной и той же цифрой.

+5

Ответы (1)

Знаете ответ на вопрос?

Камилька · 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.

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

Дано натуральное число:

- найти сумму цифр этого числа;

- верно ли, что число начинается и заканчивается одной и той же цифрой.