Задание 17 Урок 13.1
Primary tabs
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3....и т.д.
var i,j,m,n: integer; begin writeln('vvedite chislo'); readln(n); writeln('vvedite chislo m'); readln(m); if (n>=0) then begin i:=8; while(i<=n) do begin if(j=m) then begin write(' ', j, ' '); j:=-1; end else begin write(i, ' '); end; j:=j+1; i:=i+2; end; end else writeln('oshibka!'); readln(); end.
- Log in to post comments
- 492 reads