Question

: Дан периметр квадрата. Определить его площадь.

Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.

Program test8;

Var a : real; // сторона квадрата

S : real; // площадь квадрата

P : real; // периметр квадрата

Begin

Readln ();

 :=  / 4;

S :=  (a);

Writeln (‘Ответ: ’, );

End.

​

Answer 1

Ответ:

Program

Var a : real; // сторона квадрата

S : real; // площадь квадрата

P : real; // периметр квадрата

Begin

Readln (P);

a:= P / 4;

S :=sqr(a);

Writeln (‘Ответ: ’,S);

End.

Объяснение: