Ответы на вопрос:
procedure per(a,b,h: real; var p: real); var c,d: real; begind: =abs(a-b)/2; c: =sqrt(h*h+d*d); p: =2*c+a+b; end; var a1,b1,h1,a2,b2,h2,p1,p2,s: real; beginclrscr; writeln('parametri 1: '); write('1 osnovanie='); readln(a1); write('2 osnovanie='); readln(b1); write('h='); readln(h1); per(a1,b1,h1,p1); writeln('parametri 2: '); write('1 osnovanie='); readln(a2); write('2 osnovanie='); readln(b2); write('h='); readln(h2); per(a2,b2,h2,p2); s: =p1+p2; write('summa=',s: 0: 2); end.
Популярно: Информатика
-
daniilshvanik22.04.2022 15:38
-
Gadik22823.06.2020 12:54
-
Znatokiys16.03.2021 02:38
-
clen1clenom14.02.2023 13:02
-
Rianariana200223.01.2023 22:12
-
variobukp06vcg27.06.2021 17:33
-
айрат3629.10.2020 01:53
-
KuroKei606.12.2022 08:42
-
sahsaperrucci13.03.2020 08:13
-
витка918.05.2020 10:40