задача №17 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента.
var m, i, n, a: integer; begin writeln ('введи число '); readln (m); writeln ('введи длину фрагмента-ограничитель'); readln (a); if m<0 then writeln ('error'); i:=8; while i<=m do begin n:=n+1; if (n>a) then begin write (3,' '); n:=0; end else begin write (i,' '); i:=i+2; end; end; end.
- Log in to post comments
- 652 reads