Написать программу вычисления периметра квадрата, если известна длина его стороны.

Question

Петрака

16 сентября, 07:41

+1

Ответы (1)

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

Доминика · Answer 1

var

a, p: real;

begin

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

read (a) ;

p:=a+a+a+a;

writeln ('периметр квадрата равен', p) ;

end.