Решите задачу по Паскале плизз. Смотрите скрин
Решите задачу по Паскале плизз.
Смотрите скрин
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы