Каким будет значение переменных после выполнения фрагмента программы
Умоляю очень класс

1)

Аня сестра Вадим. Вера сестра Аркадия. Ира сестра Артёма

В условии сказано что один из них не клал грибы в корзину своей сестры, а про других не говорилось, Вадим и Аркадий клали грибы в корзины Ани и Веры. Артём не клал не в одну корзину, но так как каждый именно своей сестре, то Вадим Ане, значит она его сестра, Аркадий Ане и Вере, его сестрой не может быть Аня так как она сестра Вадима, значит его сестра Вера. Остаётся Артём и Ира, значит Ира сестра Артёма.

2)

Б

3)Объем информации, который занимает один символ компьютерного алфавита из 256 символов = 8 бит или 1 байт. В 1кбайте=1024бит

Значит 11×1024=11264

Далее 22528-11264=11264.

Получается мощность алфавита в 2 раза больше объёма данного сообщения.

В Бейсике есть встроенная функция ATN - арктангенс,
поэтому угол можно в градусах посчитать.

DIM a, b, c, cs, cst, ang, PI
INPUT " a = ", a
INPUT " b = ", b
INPUT " c = ", c
PRINT
PI = 3.141593
cs = (b * b + c * c - a * a) / (2 * b * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол A = ",
PRINT USING "###.##"; ang
cs = (a * a + c * c - b * b) / (2 * a * c)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол B = ",
PRINT USING "###.##"; ang
cs = (a * a + b * b - c * c) / (2 * a * b)
cst = cs
IF cs < 0 THEN cst = SQR(1 - cs * cs)
ang = ATN(SQR(1 - cst * cst) / cst) * 360 / (2 * PI)
IF cs < 0 THEN ang = ang + 90
PRINT "угол C = ",
PRINT USING "###.##"; ang
PRINT "Выход - любая клавиша ... "
DO
LOOP WHILE INKEY$ = ""