Вводится число от 1 до 10000. Найти сумму цифр числа: если сумма цифр равна 10, то вывести на экран сообщение "Число удовлетворяет условию задачи", иначе "Число не удовлетворяет условию задачи"
Вводится число от 1 до 10000. Найти сумму цифр числа: если сумма цифр равна 10, то вывести на экран сообщение "Число удовлетворяет условию задачи", иначе "Число не удовлетворяет условию задачи"
Гость
Ответ(ы) на вопрос:
ГостьVar n,s : Integer;
Begin
Readln(n);
s:=0;
While n>0 do
Begin
s:=s+(n mod 10);
n:=n div 10;
end;
If s=10 then Writeln('Число удовлетворяет условию задачи')
else Writeln('Число не удовлетворяет условию задачи');
end.
Не нашли ответ?
Похожие вопросы