Задано натуральное число n , вычислите сумму цифр - вопрос №1534498 от larsab 18.04.2023 11:22

Question

Информатика: Задано натуральное число n , вычислите сумму цифр числа используя цикл while

larsab · Answer

var sum,n:int64;begin  write( Vvedite chislo: );  readln(n);   while(n 0) do begin    sum:=sum+(n mod 10);    n:=n div 10;   end;  writeln(sum);  readln;end....