Victor Surozhtsev
Просветленный
(33722)
4 года назад
Быстрее сам код написáть, чем какие-то там схемы рисовать:
program buratino; var s,n,k:byte; begin randomize; s:=0; n:=0; while (s<150) do begin n:=n+1; k:=3+random(8);
write(n:2,' : ',s:3,' + ',k:2,' = '); s:=s+k; writeln(s:3) end end.