Ответ(ы) на вопрос:
Гостьvar
s, a, p: real;
begin
write('Введите площадь квадрата: ');
read(s);
a := sqrt(s); //Сторона
p := a * 4; //Периметр
writeln('Сторона квадрата = ', a : 0 : 2);
writeln('Периметр квадрата = ', p : 0 : 2);
end.
Не нашли ответ?
Похожие вопросы