Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 197048
11.11.2019, 18:55
0.00 руб.
0 3 1
Компьютеры Программирование
Здравствуйте! У меня возникли сложности с таким вопросом:

Описать процедуру DigitCountSum(K, C, S), находящую количество C цифр целого положительного числа K, а также их сумму S (K — входной, C и S — выходные параметры целого типа). С помощью этой процедуры
найти количество и сумму цифр для каждого из пяти данных целых чисел.


Приложение:
Pascal

Обсуждение

давно
puporev
Профессор
401888
1232
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]
давно
puporev
Профессор
401888
1232
11.11.2019, 19:29
общий
Адресаты:
Поправленный код.
[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;
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);
writeln('Количество цифр=',c,' их сумма=',s);
end;
end.[/code]
давно
Зенченко Константин Николаевич
Старший Модератор
31795
6196
11.11.2019, 20:17
общий
Адресаты:
Обратите внимание на сообщение эксперта выше.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа