Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal
Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal
Гость
Ответ(ы) на вопрос:
ГостьПаскаль пишется как Pascal. var a, sum : integer; begin read (a); sum := 0; while (sum <= 10) and (a > 0) do begin sum := sum + a mod 10; a := a div 10; end; if sum > 10 then write ('Yes') else write ('No'); end.
Не нашли ответ?
Похожие вопросы