Ответы на вопрос:
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.
Популярно: Информатика
-
крмоири12.11.2020 08:13
-
katyavoloshina126.08.2022 13:42
-
ozilpro22813.11.2021 10:11
-
ulia10826.09.2020 18:02
-
TheAlexFunny02.07.2022 23:33
-
Dashka2K1723.11.2020 09:19
-
famin1981017.05.2022 21:31
-
vladiev28.12.2020 06:02
-
halilappazov13.02.2023 04:29
-
dega798119.09.2020 06:16