Ответы на вопрос:
1) program task1; var x,y,xq,yq,sum,pro,cha,raz: integer; begin write('введите числа: '); readln(x,y); xq: =sqr(x); yq: =sqr(y); sum: =xq+yq; raz: =xq-yq; pro: =xq*yq; cha: =xq/yq; write('сумма=',sum,'; разность=',raz,'; частное=',cha,'; произведение=',pro); end. 2) program task2; var a,r,rr,h,s: real; begin write('введите длину стороны треугольника: '); readln(a); r : = sqrt(3) * a / 6; rr : = 2 * r; h : = 3 * r; s : = a * h / 2; writeln('радиус вписанной окружности ', r: : 2); writeln('радиус описанной окружности ', rr: : 2); writeln('высота треугольника ', h: : 2); writeln('площадь треугольника ', s: : 2); end.
Популярно: Информатика
-
tanyasidorcova13.08.2020 23:49
-
danisov200303.12.2021 06:35
-
liza90128311.12.2021 07:15
-
Tet4ip06y18.12.2021 23:06
-
Rivergeenger30.06.2022 13:14
-
татар1329.12.2022 16:39
-
lkivaka13.08.2021 18:14
-
katytucan115.11.2022 05:22
-
Котёнок000730.12.2021 22:38
-
Dasha55551111124.07.2021 16:20