Определите значение переменной a после выполнения фрагмента программы
a := 10;
if a > 5 then
a := a + 10
else
a := a - 3;
if a < 5 then
a := a + 1
else
a := a - 7;

сейчас сундуков-n1

прибавляется-n2

18+(k-n1): n2

ответ: 18+(к-n1): n2 лет будет невесте.

по у кощея 27360 сундуков, каждый год прибавляется по 33 сундука, василиса пообещала, что выйдет замуж за кощея когда у него будет 30000 сундуковс золотом.

решение: сейчас сундуков 27360

прибавляется по 33 в год, значит

18+(30000-27360): 33=18+2640: 33=18+80=98 лет

невесте будет 98 лет.

пломп лпмб_лпмплпмб й об лпмбц_лпмплпмб

(около кола _колокола и на колах _колокола)

var a,b: integer;

is7: boolean;

begin

    readln(a);

    b: =0;

    is7: =false;

    while a < > 0 do

    begin

        b: =b+a mod 10;

        if a mod 10 = 7 then

            is7: =true;

        a: =a div 10;

    end;

    wrtieln('сумма цифр: ', b);

    write('цифра 7 ');

    if is7 then writeln('есть') else writeln('нет');

    readln;

end.

смотри схему