Известны ширина и длина прямоугольника. Сторона квадрата в два раза меньше длины прямоугольника. Найти периметры квадрата и прямоугольника

Question

Информатика

Фетинья

20 августа, 15:51

Известны ширина и длина прямоугольника. Сторона квадрата в два раза меньше длины прямоугольника. Найти периметры квадрата и прямоугольника

+2

Ответы (1)

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

Павля · Answer 1

Program aliona;

var a, b:integer;

c, p1, p2:real;

begin

writeln ('vvedite sirinu = ') ;

readln (a) ;

writeln ('vvedite dlinu=') ;

readln (b) ;

p1:=0;

p2:=0;

c:=b/2;

p1: = (a+b) * 2;

p2:=4*c;

writeln ('p1=', p1,'p2=', p2) ;

readln;

end.