11.11.2019, 19:05
общий
это ответ
Здравствуйте, bodya!
[code lang=pascal]procedure DigitCountSum(k:integer;var c,s:integer);
begin
c:=0;
s:=0;
while k>0 do
begin
inc(c);
s:=s+k mod 10;
k:=k div 10;
end;
writeln('Количество цифр=',c,' их сумма=',s);
end;
var i,k,c,s:integer;
begin
for i:=1 to 5 do
begin
repeat
write('Введите целое положительное число k=');
readln(k);
until k>0;
DigitCountSum(k,c,s);
end;
end.[/code]