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.Сделать второй слайд: написать о своём классном руководителе,вставить его фото и сделать заголовок. 4.Сделать четвертый слайд:написать о себе,вставить своё фото и сделать заголовок. 5.Создавать слайдов столько сколько у тебя одноклассников,делать их так же как про себя.Спрашивать у них про них. 6.Предпоследний слайд сделать с пожеланиями своим одноклассникам. 7.На последнем слайде можно поставить красивую картинку или смайл и написать за внимание!
i:integer;
begin
Readln(a)
;for i:=1 to length(a) do
begin
if a[i]='(' then a[i]:='[';
if a[i]=')' then a[i]:=']';
end;
Writeln(a);
end.