ПОМОГИТЕ ПОЖАЛУЙСТА!!! Задача: Дана площадь квадрата. Определить его периметр. Ученик...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!! Задача: Дана площадь квадрата. Определить его периметр. Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу. Program test3; Var a : real; // сторона квадрата S : real; // площадь квадрата P : real; // периметр квадрата Begin Readln ( ); := (S); := ; Writeln (‘Ответ: ’, ); End.

Answer 1

Program test3;

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

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

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

Begin

Readln ( a);

S:= a*a;

P:= a+a+a+a;

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

End.