1. Ну я не знаю какая часть фигуры закрашена. Будем считать что прямоугольник находиться в окружности и необходимо из площади курга вычесть площадь прямоугольника. const p =3.14; var a,b,r,s1,s2:real; begin Writeln('Введите длины сторон прямоугольника'); readln(a,b); Writeln('Введите радиус окуржности'); Readln(r); s1:=a*b; s2:=p*sqr(r); Writeln('Площадь закрашеной окружности = ', s2-s1); end.
Если закрашена какая-то другая область то можете просто изменить действие с площадями в предпоследней строчке ( в данном случае мы из s2 вычитаем s1).
Исполнитель Калькулятор.1.Степень(число,степень)2.Корень(число,степень)3.Сложение(число,число2)4.Умножение(число,число2)5.Деление(число,число2)6.Вычитание(число,число2)7.Вывод(алг)-выводит результат алгоритма8.Если(условие)9.скобка1 скобка2-для содержания операторов в условииначало конец - для содержания всего алгоритма10.Ошибка - сообщает об ошибке и прекращает выполнение алгоритма11.Ввод(x)-считывает числа, введённые пользователем Пример: Найти квадратный корень из числа 9 НачалоКорень(9,2)Вывод(алг)Конец Пример: Разделить 7 на x НачалоВвод(x);Если(x=0)скобка1Ошибкаскобка2Деление(7,x)Вывод(алг)Конец Пример: Возвести х в степень у НачалоВвод(х,у)Степень(х,у)Вывод(алг)Конец Калькулятор находит сумму, разность, произведение, частное, возводит в степень или извлекает корень согласно введённым пользователем данным, либо заданным по умолчанию.
77 | 1
38 | 0
19 | 1
9 | 1
4 | 0
2 | 0
1 | 1
= 10011011
156 | 0
78 | 0
39 | 1
19 | 1
9 | 1
4 | 0
2 | 0
1 | 1
= 10011100
ЧИСЛА ЗАПИСЫВАЮТСЯ СНИЗУ ВВЕРХ!
Перевод в двоичную - деление на "2", записывая остаток.