1)даны два целых числа. вычислить сумму,разность, произведение и частное их квадратов. 2)дана сторона равностороннего треугольника. найти его высоты и радиус описанной и вписанной окружности.
199
206
Ответы на вопрос:
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.
Var a,b,c: integer; begin; readln(a); readln(b); readln(c); if (a mod 2=0) and (b mod 2=0) and (c mod 2=0) then writeln('ура') else if ((a mod 2=0) and (b mod 2=0)) or ((a mod 2=0) and (c mod 2=0)) or ((b mod 2=0) and (c mod 2=0)) then writeln('уже хорошо') else if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then writeln('не все так плохо') else writeln('повезет в следующий раз'); end.
Популярно: Информатика
-
mykmin00101.09.2020 09:56
-
Оля01072013.07.2020 18:15
-
kristina23122009.09.2020 00:39
-
dkurmanbek02.05.2023 04:36
-
Gosha2222888826.09.2021 19:17
-
nastich111.06.2020 09:55
-
lshellter01.06.2020 20:30
-
рита42916.09.2020 05:28
-
Дисконет14.04.2020 16:29
-
coffeegiraffe14.09.2020 10:42