Задача: Дана площадь квадрата. Определить его периметр.
Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
Program test3;
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (
);
:=
(S);
:=
;
Writeln (‘ответ: ’,
);
End.
Program test3;
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln ( a);
S:= a*a;
P:= a+a+a+a;
Writeln (‘ответ: ’, S, P);
End.