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

  • 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.
  • держи чувак.. .
    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.
  • 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.
  • Натуральное число в паскале представлено в двоичном виде. Тебе нужно количество и сумма двоичных цифр? Или как?