Question

Pascal Ввести целое число и найти сумму его цифр Написать цикл со счетчиком

Answer 1

var n,m,i,k,o:integer;

s:string;

begin

readln(n); // программа спрашивает, какое число будем анализировать и присваивает его переменной n

str(n,s);  // получаем строку из числа

for i:=1 to length(s) do

begin

val(s[i],k,o);  // посимвольно переводим строку в символ

m:= k+ m;  //  и суммируем все в переменную m

end;

writeln(m);  // выводим сумму цифр

end.

Answer 2

#### Подсчет суммы цифр целого числа в Pascal Для того чтобы найти сумму цифр целого числа в Pascal, можно использовать цикл со счетчиком. Вот пример кода: ```pascal program SumOfDigits; var number, digit, sum: integer; begin // Вводим целое число write('Введите целое число: '); readln(number); // Инициализируем сумму sum := 0; // Пока число не равно нулю while number <> 0 do begin // Получаем последнюю цифру числа digit := number mod 10; // Добавляем цифру к сумме sum := sum + digit; // Убираем последнюю цифру из числа number := number div 10; end; // Выводим сумму цифр writeln('Сумма цифр числа: ', sum); end. ``` В этом примере мы считываем целое число с помощью `readln`, инициализируем переменную `sum` для хранения суммы цифр, а затем используем цикл `while` для пошагового обхода цифр числа. В каждой итерации цикла мы получаем последнюю цифру числа с помощью операции остатка от деления (`mod 10`), добавляем ее к сумме и убираем последнюю цифру из числа с помощью операции целочисленного деления (`div 10`). После завершения цикла выводим сумму цифр на экран с помощью `writeln`. **Пример использования:** ``` Введите целое число: 12345 Сумма цифр числа: 15 ``` Пожалуйста, обратите внимание, что в данном примере мы предполагаем, что пользователь вводит только целые числа. Если пользователь вводит что-то другое, программа может выдать ошибку. В реальном приложении следует предусмотреть проверку на корректность ввода данных. Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.