Дано натуральное число. верно ли, что сумма его цифр больше 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.

составим уравнение:

x- первая корзина

y- вторая корзина

x+54=x+y

x-x+54=y

y=54 - (во второй корзине)

x=54+38

x=92

z- третья корзина

z=x-27

z=92-27

z=65

ответ: в третей корзине 65 орехов

14