Помогите со 2 задачкой! пожалуйста, сделать надо на паскале
Помогите со 2 задачкой! пожалуйста, сделать надо на паскале
Гость
Ответ(ы) на вопрос:
ГостьProgram z2;
var s,p,a:real;
Begin
Writeln ('Введите периметр квадрата');
readln (p);
a:=p/4;
s:= sqr(a);
Writeln ('s=',s);
End.
Не нашли ответ?
Похожие вопросы