Question

ОЧЕНЬ СРОЧНО 50 балов


Составьте блок схему к задаче


Дано целое число N (>0) используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр (N=63)

Program n_18;
var
n,sum,Q: integer;
begin
write (' n = ');
readln (n);
writeln;
Q:= 0;
sum:=0;
while n>0 do
begin
inc (Q);
sum:= sum + N mod 10;
N:= N div 10;
end;
writeln ('количество цифр: ' , Q);
writeln (' сумма цифр: 'sum);
end.

Answer 1

n=get()

k=0

s=0

while n>=1 do

   s=s+n % 10

   k=k+1

   n=(n-n%10)/10

end

print(s,k)