program SumOfDigits va num, sum, digit: integer begi write('Введите трехзначное число: ') readln(num) sum := 0 digit := num mod 10; // находим последнюю цифр sum := sum + digit num := num div 10; // убираем последнюю цифр digit := num mod 10; // находим следующую цифр sum := sum + digit num := num div 10; // убираем следующую цифр sum := sum + num; // осталась только одна цифра, добавляем ее к сумм writeln('Сумма цифр числа: ', sum) end.
va
num, sum, digit: integer
begi
write('Введите трехзначное число: ')
readln(num)
sum := 0
digit := num mod 10; // находим последнюю цифр
sum := sum + digit
num := num div 10; // убираем последнюю цифр
digit := num mod 10; // находим следующую цифр
sum := sum + digit
num := num div 10; // убираем следующую цифр
sum := sum + num; // осталась только одна цифра, добавляем ее к сумм
writeln('Сумма цифр числа: ', sum)
end.