Question

Написать программу паскаля. Периметр квадрата равен n см. Найди длину стороны квадрата.

Answer 1

program exe1;
var P,a: real;
begin
writeln ('введите периметр квадрата');
readln(P);
a:=P/4;
writeln('сторона квадрата равна', a);
end.