Ввести натуральное число N (не больше 2147483647). Определить сколько в нем знаков, вычислить сумму цифр числа и определить старшую цифру числа СРОЧНО НАДО!!!!!!!!
Ввести натуральное число N (не больше 2147483647). Определить сколько в нем знаков, вычислить сумму цифр числа и определить старшую цифру числа СРОЧНО НАДО!!!!!!!!
Гость
Ответ(ы) на вопрос:
Гость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