вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.

Question

Информатика

Ян

4 декабря, 06:45

вычислить и вывести значения периметра 30 прямоугольников при различных значениях их сторон (А>0 и B>0), Pascal.

+3

Ответы (1)

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

Арсений · Answer 1

Var

a, b:integer;

i:integer;

begin

for i:=1 to 3 do

begin

writeln ('Pryamougolnik ', i) ;

writeln ('vvedite storonu a') ;

readln (a) ;

writeln ('vvedite storonu b') ;

readln (b) ;

writeln ('perimetr = ', (a+b) * 2) ;

end;

end.