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

Question

Информатика

Текуса

25 декабря, 00:49

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

+5

Ответы (1)

Знаете ответ на вопрос?

Ефимий · Answer 1

Для натуральных чисел:

var a, k, s:integer;

begin

write ('a = ') ;

readln (a) ;

k:=0; s:=0;

while a>0 do

begin

k:=k+1;

s:=s+a mod 10;

a:=a div 10;

end;

writeln ('k = ', k,', s = ', s) ;

end.

Пример:

a = 352186

k = 6, s = 25