Код (формула температуры бредовая, она должна зависить от объема. А то получается влили 1 литр с температурой 1 градус и 100 литров с температурой 100 градусов и оно посчитает температуру 50 градусов, а не около 100):
V1 = float(input("Объем воды в 1 сосуде (л): "))
t1 = float(input("Температура воды в сосуде: "))
V2 = float(input("\nОбъем воды во 2 сосуде (л): "))
t2 = float(input("Температура воды в сосуде: "))
V3= float(input("\nОбъем воды в 3 сосуде (л): "))
t3= float(input("Температура воды в сосуде: "))
print("\nТемпература в 4 сосуде:", round((t1 + t2 + t3) / 3, 3))
print("Объем воды в 4 сосуде:", V1 + V2 + V3)
Объяснение:
program daysmonth1;
const n=100;
Var
a,i,m,y,days1,days2:integer;
mas1:array [ 0..n ]of longint;
p:boolean;
BEGIN
p:=false;
writeln('vvedite nomer mesyaca');
readln(m);
writeln('enter year');
readln(y);
a:=1960;
while a<>2012 do begin
a:=a+4;
if y=a then begin writeln('visokosnyi god'); p:=true;
mas1[ i ]:=a;
end;
end;
if m=1 then writeln('jan=31 days');
if (m=2) and (p=false) then writeln('feb=28 days') ;
if (m=2) and (p=true) then writeln('feb=29 days');
if m=3 then writeln('mar=31 days');
if m=4 then writeln('apr=30 days');
if m=5 then writeln('may=31 days');
if m=6 then writeln('june=30 days');
if m=7 then writeln('jule=31 days');
if m=8 then writeln('aug=31 days');
if m=9 then writeln('sept=30 days');
if m=10 then writeln('oct=31 days');
if m=11 then writeln('nov=30 days');
if m=12 then writeln('dec=31 days');
END
var m,r:real;
Begin
Writeln('Вычисление расстояния между населенными пунктами.') ;
writeln('ведите исходные данные:');
writeln('Масштаб карты (количество километров в одном сантиметре) ---> ');
read(m);
writeln('Расстояние между двумя точками, изображающими населенные пункты (см) ---> ');
read(r);
writeln('Расстояние между населенными пунктами ', m*r,' км.');
End.