Question

Дано натуральное число n. Определить:
a) Количество цифр в этом числе;
б)Сумму его цифр;
в)Первую цифру числа n;

Answer 1

var n,sum,d,ind,first:integer;
begin
  Write('n'); 
Readln(n);
  d:=1; 
ind:=0;
  sum:=0;
  if  n div d=0 then 
 begin 
 ind:=1; 
sum:=n;
  end 
 else
begin 
 while n div d<>0 do 
 begin 
 inc(ind); 
 sum:=sum+(n div d) mod 10; 
 d:=d*10; 
 end; 
 end; 
 Writeln('suma',Sum); 
 Writeln('kolvo',ind); 
 first:=(n div round(d/10)) mod 10; 
writeln('first',first); 
 readln;
end.