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

Question

Информатика

Декабрист

3 января, 07:33

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

+4

Ответы (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.