Расположите в правильном порядке строки программы, вычисляющей периметр и площадь параллелограмма:

1) S:=a*h;

6) var a,b,h,p,s: integer;

2) end.

7) readln;

3) program pr;

8) Writeln(‘p=’,p,’ s=’,s);

4) p:=2*(a+b);

9) a:=6;b:=3;h:=4;

5) Uses crt;

10) clrscr;

11) begin

— Правильный ответ на вопрос найдете ниже

Ответ:

Ну, зачем девушкам программмировать? 🙂

Ладно, я хоть и C++ знаю, но Pascal тоже изучал.

Неуверен, но должно быть так.

 

program pr;

uses ctr;

var a,b,c,h,p,s: interger;

begin

clrscr;

readln; // несовсем понимаю зачем это… бред… можно удалить.

a:=6;b:=3;h:=4;

p:=2*(a+b);

Writeln(‘p=’,p,’ s=’,s);

end.

 

Ответ: 3-5-6-11-10-7-9-4-8-2

 

Удачи 🙂