24-26 в паскалях турбо сроооочно

Question

24-26 в паскалях турбо сроооочно

---

Answer 1

24.
var a,h:integer; so,s,v:real;
begin
write('a = '); readln(a);
write('h = '); readln(h);
so:=(3*sqrt(3)*a*a)/2;
s:=2*so+6*a*h;
v:=so*h;
writeln('s = ',s,'  v = ',v);
end.

Пример:
a = 5
h = 7
s = 339.903810567666  v = 454.66333698683

25.
var a,b,c:integer; d:real;
begin
write('a = '); readln(a);
write('b = '); readln(b);
write('c = '); readln(c);
d:=sqrt(a*a+b*b+c*c);
writeln('d = ',d:4:2);
end.

Пример:
a = 3
b = 4
c = 5
d = 7.07

26.
var r1,r2,h:integer; l,s:real;
begin
write('r1 = '); readln(r1);
write('r2 = '); readln(r2);
write('h = '); readln(h);
l:=sqrt((r1-r2)*(r1-r2)+h*h);
s:=pi*(r1*r1+(r1+r2)*l+r2*r2);
writeln('s = ',s:4:2);
end.

Пример:
r1 = 5
r2 = 3
h = 7
s = 289.78

Answer 2

24)
int main(){
double a, h, S, V;
cin >> a >> h;
S = 6 * a * h + 3 * sqrt(3) * a * a;
V = 3 * sqrt(3) * a * a * h;
cout << "площадь равно " << S <<"\n";<br>cout << "объем равно " << V <<"\n";<br>return 0;
}
25)
int main(){
double a, b, c, d;
cin >> a >> b >> c;
d = sqrt(a * a + b * b + c* c);
cout << d;<br>return 0;
}
26)
int main(){
double r1,r2, h, S, l;
cin >> r1 >> r2 >> h;
l = sqrt( (r1-r2) * (r1-r2) + h * h );
S = 3.14 * (r1 * r1 + l * (r1 + r2) + r2 * r2);
cout << S;<br>return 0;
}

Comments

Просили в паскале программы написать.