Дано целое число n(> 0 используя операции деления нацело и взятие остатка от деления найти количество и сумму его цифр.

n=get()k=0s=0while n> =1 do      s=s+n % 10      k=k+1      n=(n-n%10)/10endprint(s,k)

var n,count,sum: integer;

 

begin

    read(n);

    count: =0;

    sum: =0;

    while (n< > 0) do

        inc(count);

        sum: =sum+(n mod 10);

        n: =n div 10;

    end

end.

 

информация  — сведения о чём-либо, независимо от формы их представления.  1. понятие информационных технологий. применение информационных технологий в юриспруденции.

информационные технологии  (ит, от . informationtechnology, it) — широкий класс дисциплин и областей деятельности, относящихся к технологиям создания, и обработки данных, в том числе с применением вычислительной техники. сами ит требуют сложной подготовки, больших первоначальных затрат и наукоемкой техники. их внедрение должно начинаться с создания обеспечения, формирования информационных потоков в системах подготовки специалистов.

основные черты современных ит:

компьютерная обработка информации по заданным алгоритмам; хранение больших объёмов информации на машинных носителях; передача информации на значительные расстояния в ограниченное время.

Var     arr: array[1..100] of real;     n: integer;     sum, op: real;     i: integer;   begin     write('vvedite n ');     readln(n);           for i : = 1 to n do           begin                   write('vvtdite ',i,'-oe chislo ');                     readln(arr[i]);         end;         sum : = 0;         for i : = 1 to n do             sum : = sum + arr[i];     writeln('summa= ', sum); end.