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

Question

Информатика

Борисыч

2 декабря, 10:25

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

+5

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