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

Question

Информатика

Борисыч

5 июня, 10:48

вычислить и вывести значения периметра 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.