Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal

Question

Информатика

Ириша

1 августа, 20:39

Дано натуральное число. Верно ли, что сумма его цифр больше 10? Paskal

+2

Ответы (1)

Знаете ответ на вопрос?

Дена · Answer 1

Паскаль пишется как Pascal.

var

a, sum : integer;

begin

read (a) ;

sum : = 0;

while (sum 0) do

begin

sum : = sum + a mod 10;

a : = a div 10;

end;

if sum > 10 then write ('Yes') else write ('No') ;

end.