Question

Помогите пж очень надо,найти площадь и периметр квадрата

Answer 1

PascalABC.NET 3.4.2, сборка 1880 от 18.11.2018

Внимание! Если программа не работает, обновите версию!

procedure Квадрат(a: real; var P, S: real);

begin

 (P, S) := (4 * a, a * a)

end;

begin

 var сторона := ReadReal('Введите сторону квадрата:');

 var периметр, площадь: real;

 Квадрат(сторона, периметр, площадь);

 Print('Периметр равен', периметр, 'площадь равна', площадь)

end.