Составить программу нахождения площади, периметра и диагонали в квадрате со стороной А.

Question

Глеб Кожевников

Информатика

11 октября, 00:08

Составить программу нахождения площади, периметра и диагонали в квадрате со стороной А.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Константин Тихонов · Answer 1

Pascal ABC

program geometry;

var a, p, s: integer;

d: real;

begin

read (a);

s:=a*a;

p:=a*4;

d:=sqrt (a*a+a*a);

writeln ('Площадь квадрата = ', s);

writeln ('Периметр квадрата = ', р);

writeln ('Диагональ квадрата = ', d);

end.