Var
a, b: real;
begin
readln(a, b);
writeln('P = ', 2 * (a + b));
writeln('S = ', a * b);
end.
2)
var
a, b, c: real;
begin
readln(a, b, c);
writeln('cos(alpha) = ', (b * b + c * c - a * a) / (2 * b * c));
writeln('cos(beta) = ', (a * a + c * c - b * b) / (2 * a * c));
writeln('cos(gamma) = ', (a * a + b * b - c * c) / (2 * a * b));
end.
0,00025 кбайт = 0,25 байт = 2 бит
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3