var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.
Задача 1
а)А×В×А×В+В= а×а×в×2в
б)(А+В)×(А+В)=2А×2В
в)А+А×В+А×С=3а×В×С
× это умножить если че
0 т.к
For i:= 1 to 1 do оператор (от 1 до 1 - 0 действий)
(ну лично, я так думаю, так что я не уверенна , что этот ответ верный)