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

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

Question

Информатика

Леонтина

22 сентября, 15:25

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

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

+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.

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

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

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