Ответ на твой вопрос думаю такой - 1100110
1. 114-66=48
2. 66-48=18
3. 48-18=30
4. 30-18=12
5. 18-12=6
6.12-6=6
Итого 6 шагов
Program portnoy;
var L,k : integer ;
begin
L=400;
k=0;
While L>=3 do begin
L=L-3;
k=k+1;
end;
WriteLn ( ' получится ',k,' занавесок и останется ',L,' метров ткани');
end.
== для равенства, >= "больше", <= "меньше", != для неравенства. Иногда вместо != ставят <>