Дана сторона квадрата. составьте программу для вычисления а) периметра б) длины диагонали в) площади квадрата

Question

Информатика

Стина

14 декабря, 16:53

Дана сторона квадрата. составьте программу для вычисления а) периметра б) длины диагонали в) площади квадрата

+3

Ответы (1)

Знаете ответ?

Венуша · Answer 1

Program N;

var a, p, s:integer;

c:real;

Begin

read (a) ; {вводим сторону квадрата}

c:=a*sqrt (2) ;

p:=4*a;

s:=sqr (a) ;

WriteLn ('диагональ ', c:5:2, ' периметр ', p, ' площадь ', s) ;

end.