Помогите пожалуйста!Как в pascal записать сумму цифр целого числа? Это очень срочно!И главное трехзначного числа,без сумашедших кодов на 5 страниц!
Помогите пожалуйста!Как в pascal записать сумму цифр целого числа? Это очень срочно!И главное трехзначного числа,без сумашедших кодов на 5 страниц!
Гость
Ответ(ы) на вопрос:
Гостьvar
n,s:integer;
begin
Write('Введите 3х-значное натуральное число: '); Read(n);
s:=(n div 100)+((n div 10) mod 10)+(n mod 10);
Writeln('Сумма цифр числа равна ',s);
end.
Не нашли ответ?
Похожие вопросы