Предмет: Информатика,
автор: thedaria14
Определить количество цифр в введенном целом числе и подсчитать сумму этих цифр.
Karakulina:
Какой язык программирования?
Ответы
Автор ответа:
1
===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.
Также прикрепляю файл с кодом.
Приложения:
Похожие вопросы
Предмет: Русский язык,
автор: DianaAsk
Предмет: Русский язык,
автор: olivkalovalova
Предмет: Русский язык,
автор: Аноним
Предмет: Математика,
автор: iren1684