Question

Ввести натуральное число N (не больше 2147483647). Определить сколько в нем знаков, вычислить сумму цифр числа и определить старшую цифру числа СРОЧНО НАДО!!!!!!!!

Answer 1

Program enot;
Var i,n,k,a,s,m:integer;
begin
read(n);
k:=0;
s:=0;
while n>0 do
begin
i:=a;
a:= n mod 10;
k:=k+1;
s:=s+a;
n:=n div 10;
if m<i then m:=i;
end;
write('summa = ',s,'; znakov = ',k,'; starsh = ',m);
end.