Середины сторон квадрата последовательно соединены найти периметр полученной фигуры в поскаль

Question

Информатика

Альвина

24 мая, 14:52

Середины сторон квадрата последовательно соединены найти периметр полученной фигуры в поскаль

+1

Ответы (1)

Знаете ответ на вопрос?

Еня · Answer 1

Var

a: integer;

p: real;

begin

writeln ('Введите сторону квадрата:') ;

readln (a) ;

p : = sqrt (2*sqr (a/2)) * 4;

writeln ('Периметр: ', p) ;

end.