С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числа паскаль
С клавиатуры вводится целое положительное число. Определить сколько в нем цифр и найти сумму цифр этого числа паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar n, sum, count: integer;
begin
read(n);
sum := 0;
count := 0;
while n > 0 do
begin
sum := sum + n mod 10;
n := n div 10;
count := count + 1;
end;
writeln(sum);
writeln(count);
end.
Не нашли ответ?
Похожие вопросы