СОЧ ЗА 2 ЧЕТВЕРТЬ ИНФОРМАТИКА

program seee; uses crt; var p,b,c: real; i,v: integer; beginclrscr; readln(p); writeln; writeln('mass price '); writeln; while v< > 1000 dobegin v: =v+50; writeln(v,'g ',v*p/1000: 2: 2); end; readkey; end.

запихнуть тепловоз и пассажирский вогон

дать грузовому проехать.

выехать из тупичка

грузовой возвращается до тупичка

грузовой тепловоз задом запихивает оставшиеся 2 вагона пассажирских в тупичек

грузовой уезжает

пассажирский прицепляет 2 вагона и уезжает

a: =a+b; (новое а после присвоения будет равно 6, b будет равно 4)

b: =a-b (новое b после присвоения будет равно 2, a будет равно 6)

a: =a-b (новое a после присвоения будет равно 4, b будет равно 2)

n=2^b, где b=7 (поусловию )