Написать программу определения суммы цифр числа и их количества, используя оператор цикла с постусловием.

Программа Паскаль

Question

Информатика

Денисия

21 мая, 09:33

Написать программу определения суммы цифр числа и их количества, используя оператор цикла с постусловием.

Программа Паскаль

+4

Ответы (1)

Знаешь ответ?

Акуля · Answer 1

Program gt;

var n, q, s, k:integer;

begin

read (n);

s:=0;

k:=0;

while n>0 do

begin

q:=n mod 10;

n:=n div 10;

s:=s+q;

k:=k+1;

end;

writeln (s,' ', k);

end.

Написать программу определения суммы цифр числа и их количества, используя оператор цикла с постусловием.Программа Паскаль

Написать программу определения суммы цифр числа и их количества, используя оператор цикла с постусловием.

Программа Паскаль