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

разделим монеты на кучки 1002 1002 и одна монета

1-е взвешивание сравниваем 1002 и 1002

если они одинаковые то они настоящие и значит осталось сравнить одну монету с какой-нибудь из этих кучек и выяснить тяжелее она или легче

если одна из куч тяжелее то ее делим пополам и снова взвешиваем

если половинки оказались одинаковые, значит они настоящие и фальшивая монета легче настоящей, а если разные то фальшивая монета тяжелее настоящей

из всех монет в меньшей стороне всегда присутствует v6,

в большей стороне ни одна монета не повторяется во всех трех взвешиваниях, значит монета под номером 6 фальшивая и она весит меньше подлинных