Сообщение состоит из 1280символов
Р.С. извините если неправильно понял вопроса
Program BiFi;
Var a,d:real;
Begin
readln(a);
readln(d);
writeln('P=',2*(a+d));
readln;
end.
3 л: 8 л:
1. 3 0 (налить 3л)
2. 3 3 (перелить из 3л в 8л и налить в 3л.)
3. 0 6 (перелить из 3л в 8л)
4. 3 6 (налить 3л)
5. 1 8 (перелить из 3л в 8л)
6. 1 0 (вылить 8 л)
7. 0 1 (перелить из 3л в 8л)
8. 3 1 (налить 3л)
9. 0 4 (перелить из 3л в 8л)
10. 3 4 (налить 3л)
11. 0 7 (перелить из 3л в 8л)
Var a:array [1..6] of integer; b:array [1..6] of integer; c:array [1..6] of real; i:integer; begina[1]:=5; b[1]:=30;a[2]:=9; b[2]:=52;a[3]:=15; b[3]:=90;a[4]:=27; b[4]:=155;a[5]:=46; b[5]:=270;a[6]:=60; b[6]:=465;for i:=1 to 6 doc[i]:=a[i]/b[i];for i:=1 to 6 dowriteln('кВт/кг ',i,'-го генератора = ',c[i]);end.
Ты не указал язык, на котором нужно написать. Прикреплю на С++