DIM a AS DOUBLE, alpha AS DOUBLE, k AS DOUBLE, s AS DOUBLE CLS INPUT "a, alpha="; a, alpha k = ATN(1) / 45 PRINT "S="; a ^ 2 * SIN(alpha * k)
2. Договоримся, что a≤b и c≤d. Если после ввода это не так, то меняем местами значения a,b и/или c,d.
Условие, при котором первый прямоугольник поместится во второй выглядит как a<c ∧ b<d
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER, t AS INTEGER CLS INPUT "a,b,c,d"; a, b, c, d IF a > b THEN t = a: a = b: b = t END IF IF c > d THEN t = c: c = d: d = t END IF IF a < c AND b < d THEN PRINT "Входит" ELSE PRINT "Не входит" END IF
173 / 5 = 34, остаток 3
34 / 5 = 6, остаток 4
6 / 5 = 1, остаток 1
Теперь записываем частное и приписываем в обратном порядке остатки:
173₁₀ = 1143₅
ответ: AD₁₆ = 173 = 1143₅