===PascalABC.Net===
var
number, counter, sum: integer;
begin
Write('Введите число: ');
ReadLn(number);
while number <> 0 do
sum += number mod 10;
counter += 1;
number := number div 10;
end;
Write('Количество цифр в числе: ', counter, ', сумма цифр: ', sum);
end.
Также прикрепляю файл с кодом.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===PascalABC.Net===
var
number, counter, sum: integer;
begin
Write('Введите число: ');
ReadLn(number);
while number <> 0 do
begin
sum += number mod 10;
counter += 1;
number := number div 10;
end;
Write('Количество цифр в числе: ', counter, ', сумма цифр: ', sum);
end.
Также прикрепляю файл с кодом.