Ответы на вопрос:
Function v(h,r: real): real; begin result: =1/3*pi*r*r*h // abc, abc.net // v: =1/3*pi*r*r*h // turbo, free end; function spp(h,r: real): real; begin result: =pi*r*(r+sqrt(r*r+h*h)); end; var h,r,v0,s,sums,sumv: real; begin write('h1 = '); readln(h); write('r1 = '); readln(r); v0: =v(h,r); sumv: =v0; s: =spp(h,r); sums: =s; writeln('v1 = ',v0); writeln('s1 = ',s); writeln; write('h2 = '); readln(h); write('r2 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v2 = ',v0); writeln('s2 = ',s); writeln; write('h3 = '); readln(h); write('r3 = '); readln(r); v0: =v(h,r); sumv: =sumv+v0; s: =spp(h,r); sums: =sums+s; writeln('v3 = ',v0); writeln('s3 = ',s); writeln; writeln('sum v = ',sumv); writeln('sum s = ',sums); end.
Популярно: Информатика
-
orlovaelvira27.08.2021 13:49
-
ларисаяна10.12.2020 21:16
-
VladimirLoll25.02.2021 04:02
-
Jfddddghvvvvgu09.03.2022 12:39
-
Богдана34808.03.2023 02:12
-
oleh0915607.02.2022 00:59
-
FCMM15.09.2022 01:07
-
lizachumakova225.07.2021 22:48
-
sofapravdina04.08.2020 20:05
-
tyzigfr27.01.2021 01:28