Program;
var a,b,c:real;
begin
readln(a,b,c);
writeln(a+b+c);
end.
1. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 5
2. Наполнить меньший бурдюк водой и перелить её часть в больший, наполнив его.
Результат: меньший - 2, больший - 8.
3. Вылить всю воду из большего бурдюка а затем перелить из меньшего в больший.
Результат: меньший - 0, больший - 2.
4. Наполнить меньший бурдюк водой и перелить её в больший.
Результат: меньший - 0, больший - 7.
Program Project1;
var a, P, S, d :real;
begin
readln(d); a:= d/sqrt(2); S:= sqr(a); P:= 4*a; writeln('Сторона: ',a); writeln('Площадь: ',S); writeln('Периметр: ',P);
end.<span>
</span>
Когда одно из высказываний является истинным или оба высказывания истинны