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

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

Question

Информатика

Деша

19 февраля, 06:39

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

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

+2

Ответы (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.

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

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

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