ПОМОГИТЕ ПОЖАЛУЙСТА Задача: Дан периметр квадрата. Определить его площадь.
Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
Program
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (_______);
________ := ___/ 4;
S := ________(a);
Writeln (‘Ответ: ’, ________);
End.
Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу.
Program
Var a : real; // сторона квадрата
S : real; // площадь квадрата
P : real; // периметр квадрата
Begin
Readln (_______);
________ := ___/ 4;
S := ________(a);
Writeln (‘Ответ: ’, ________);
End.
More Questions From This User See All
Answers & Comments
var
a:real;
S:real;
P:real;
begin
readln(P);
a:=P/4;
S:=sqr(a);
writeln('Ответ: ',S);
readln;
end.