дано натуральное число n вычислить сколько цифр в числе n и чему равна сумма его цифр паскаль

Question

Maruf Mms · Accepted Answer

держи чувак.. . 
Program cool; 
var n, sum, kol: integer; 
begin 
 write('Введите натуральное число n: '); 
 readln(n); 
 while n>0 do 
 begin 
 sum:=(n mod 10) + sum; 
 n:=n div 10; 
 kol:=kol + 1; 
 end; 
 writeln('Колличество цифр: ',kol); 
 writeln('Сумма цифр: ',sum); 
end.

Мария Объедкова · Answer

var n: string; 
s,i: integer; 
begin 
read(n); 
s:=0; 
for i:=1 to length(n) do inc(s, ord(n[ i ]) - 48); 
Writeln('Цифр - ',length(n),' сумма = ',s); 
end.

Mirlan Koshokov · Answer

program sumcifr; 
uses crt; 
var 
n: longint; 
s: integer; 
j:integer; 
begin 
clrscr; 
s:=0; j:=0; 
write('ввести число --> ');readln(n); 
while n>0 do begin j:=j+1; 
s:=s+n mod 10; 
n:=n div 10; 
end; 
writeln('число цифр числа = ',j); 
writeln('сумма цифр числа = ',s); 
readln; 
end.

Евгений Тренд · Answer

Натуральное число в паскале представлено в двоичном виде. Тебе нужно количество и сумма двоичных цифр? Или как?