это алгоритм
но площадь ещё не знаю как надеюсь алгоритм
CLS
INPUT "Vvedite verhnee osnovanie a: ", a
INPUT "Vvedite nizhnee osnovanie b: ", b
INPUT "Vvedite vysotu h: ", h
S = h * (a + b) / 2
SCREEN 7
Yn = 25
m = 17
COLOR 5
LINE (160 - (a / 2) * m, Yn)-(160, Yn)
LINE (160, Yn)-(160 + (a / 2) * m, Yn)
COLOR 8
LINE (160 - (b / 2) * m, Yn + h * m)-(160, Yn + h * m)
LINE (160, Yn + h * m)-(160 + (b / 2) * m, Yn + h * m)
COLOR 6
LINE (160, Yn)-(160, Yn + h * m)
COLOR 9
LINE (160 - (a / 2) * m, Yn)-(160 - (b / 2) * m, Yn + h * m)
LINE (160 + (a / 2) * m, Yn)-(160 + (b / 2) * m, Yn + h * m)
COLOR 5
LOCATE 3, 17
PRINT "a ="; a
COLOR 6
LOCATE 12, 22
PRINT "h ="; h
COLOR 8
LOCATE 24, 17
PRINT "b ="; b;
COLOR 10
PRINT " S ="; S
COLOR 4
123₈ = 1010011₂
Объяснение:
Я с триады решил, но ты можешь поступить следующим
1) Перевести 123₈ в десятичную систему счисления.
а) Обозначить разряды от 0, начиная с конца (разряд пишется над числом). То есть 3 — 0 разряд, 2 — 1 разряд, 1 — 2 разряд.
б) Сложить произведения цифр и оснований в степени соответствующего цифре разряда. То есть, 1 * 8² + 2 * 8¹ + 3 * 8⁰ = 64 + 16 + 3 (8⁰=1) = 83₁₀
2) Из десятичной перевести в двоичную.
Число 83₁₀ нужно просто делить на 2 (на систему счисления, в которую нужно перевести), выделяя остаток, пока не получится 0
83/2 = 41 | остаток 1
41/2 = 20 | остаток 1
20/2 = 10 | остаток 0
10/2 = 5 | остаток 0
5/2 = 2 | остаток 1
2/2 = 1 | остаток 0
1/2 = 0 | остаток 1
Полученные остатки нужно выписать снизу вверх. То есть, 83₁₀ = 1010011₂
Итак, 123₈ = 83₁₀ = 1010011₂
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";
ПЕР
число, сум_неч: ЦЕЛ;
УКАЗ
сум_неч := 0;
ПОВТОРЯТЬ
число := Приём.Число(); Вывод.Цепь(" ");
ЕСЛИ НЕ ЧЕТ(число) ТО УВЕЛИЧИТЬ(сум_неч, число) КОН
ДО число = 0;
Вывод.ЧЦел("^%d", сум_неч, 0, 0, 0)
КОН Задание.