Мы знаем объем V=3150 байтов (нужно перевести в биты, умножив на 8). Длина сообщения K=4*30*70.
Есть 2 волшебные формулы:
V=K*i
N=2^i
можно найти сначала i
i=V/K
а затем и мощность алфавита N.
var
r,h,s:real;
begin
Read(r);
h:=2*Pi*r;
s:=2*pi*sqr(r);
Writeln('Площадь круга: ', S:5:2);
Writeln('Периметр окружности: ', h:5:2);
end.
ответ 5. решается легко, просто складываем координаты по X и Y, приравниваем нулю, так как исполнитель вернулся в исходную точку.
Var A : array[1..12] of integer; i,max : integer;
begin
for i:=1 to 12 do
begin;
read(A[i]);
if A[i]>max then max:=A[i];
end;
Writeln(max);
end.