11. программа должна считать, сколько раз в строке s встречается подстрока '12'. какой оператор надо вставить вместо многоточия? вводите ответ без пробелов. c : = 0; repeat if p < > 0 then begin c : = c + 1; delete ( s, 1, p+1) end; until p = 0;

если делать, как самоделкин, стыковать кубики столбиком,

то получится так:

var

n: integer;

begin

readln(n);

writeln(4*(2*n+1),' спичек понадобится');

end.

а если находить именно наименьшее число спичек, то надо рассматривать случаи, когда кубики складываются в квадраты и кубы соответственно, но это слишком сложно.

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.