<span>Они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.</span>
а)
var
p,d,h:real;
begin
readln(h);
p:=1200*9.8*h;
writeln(p);
end.
б)
var
m,h,r:real;
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
writeln(m);
end;
в) необходимы дополнительные условия количество сосудов
если принять количество сосудов за k тогда
var
i,k:integer;
m,h,r,S:real;
begin
readln(k);
S:=0;
for i:=1 to k do
begin
readln(h);
readln(r);
m:=1200*3.14*h*r*r;
S:=S+m;
end;
writeln(S);
end.
Наверное алгоритм но я точно не знаю
Если ^ - это xor
a b (a+b) (a^b) c
0 0 0 0 0
0 1 1 1 0
1 0 1 1 0
1 1 1 0 1
Таблица и логическая схема на рисунках.