Задание 17 Урок 13.1
Primary tabs
Задание 17 Урок 13.1
Модифицируйте решение предыдущей задачи. так чтобы
пользователь вводил второе число M, которое отвечало бы за длину возрастающего
фрагмента, например для M=4:
8101214четыре числа316182022четыре числа3....3....и
т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
810два числа31416два числа3....3
var i,i1,n,m : integer; label m1; begin i :=8; i1 := 1; m1 : write('Введите целое положительное число N и M '); write('через пробел и нажмите ENTER: '); readln(n,m); m := m + 1;// для отображения чисел количесвом М if ((n or m) <= 0) then begin writeln('ОШИБКА!!! число отрицательное'); goto m1; end else repeat for i1 := 1 to m do if (i1 < m) then begin i := i+2; write(i, ' '); end else write(3, ' '); until (i > n); readln(); end.
- Log in to post comments
- 628 reads