program Danil;
var
Qj, Qjst, Bb, Bn, Z, Zy, Ya, Za, Vg, Vgv, Rg, Po, T, T_o, P, Snkt, d, Vsh: real;
begin
Qjst := 1;
Bb := 1;
Bn := 1;
Zy := 1;
Ya := 1;
Za := 1;
Vgv := 1;
Rg := 1;
Po := 1;
T := 1;
T_o := 1;
P := 1;
d := 1;
Qj := Qjst * (1 - Bb) * Bn + Qjst * Bb;
Z := Zy * (1 - Ya) + Za * Ya;
Vg := ((Vgv * (1 - Bb) + Rg) * Qjst * Z * Po * T) / (T_o * P);
Snkt := pi *sqr(d) / 4;
Vsh := (Qj + Vg) / Snkt;
write(Vsh:0:5);
end.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program Danil;
var
Qj, Qjst, Bb, Bn, Z, Zy, Ya, Za, Vg, Vgv, Rg, Po, T, T_o, P, Snkt, d, Vsh: real;
begin
Qjst := 1;
Bb := 1;
Bn := 1;
Zy := 1;
Ya := 1;
Za := 1;
Vgv := 1;
Rg := 1;
Po := 1;
T := 1;
T_o := 1;
P := 1;
d := 1;
Qj := Qjst * (1 - Bb) * Bn + Qjst * Bb;
Z := Zy * (1 - Ya) + Za * Ya;
Vg := ((Vgv * (1 - Bb) + Rg) * Qjst * Z * Po * T) / (T_o * P);
Snkt := pi *sqr(d) / 4;
Vsh := (Qj + Vg) / Snkt;
write(Vsh:0:5);
end.