Заданы числа a и b. определить, эти числа одного или разных знаков

Sub () dim a, b as integer a = inputbox("введите а! ") b = inputbox("введите b! ") if (a > = 0 and b > = 0) or (a < 0 and b < 0) then msgbox ("знаки одинаковые") else msgbox ("знаки разные") end if end sub вот процедура на vba (на нем записываются макросы в microsoft office)и как-то так блок-схема рисуется : d

Пуск ввод a,b; если (a> 0 и b> 0) или (a< 0 и b< 0), то вывод: одинаковые, иначе вывод: разные; останов.

сейчас сундуков-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 лет.

program pr; label l; var mas: array[1..10] of integer; i,k,n,b,sum: integer; beginrandomize; for i: =1 to 10 do mas[i]: =round(())*random+(-10)); l: for i: =1 to 10 dobeginif n< mas[i] thenbeginn: =mas[i]; k: =i; end; end; writeln ('a[',k,']=',n); mas[k]: =-11; n: =0; k: =0; if b=0 thenbeginb: =1; goto l; end; readln; end.

программу проверил все работает