Ответы
Ответ дал:
0
var
i: integer;
ar: array[1..3]of integer;
procedure PS(a: integer);
var
P: Integer;
S: Real;
begin
P := 3 * a;
S := sqrt(3) / 4 * sqr(a);
writeln(P, ' ', S:0:6);
end;
begin
readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.
i: integer;
ar: array[1..3]of integer;
procedure PS(a: integer);
var
P: Integer;
S: Real;
begin
P := 3 * a;
S := sqrt(3) / 4 * sqr(a);
writeln(P, ' ', S:0:6);
end;
begin
readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад
9 лет назад