Задача 17 Урок 13.1
Primary tabs
Задача 17 Урок 13.1Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента.
var a, m, i, j: integer; begin a:= 86;//пользовательское число j:= 0; m:= 5; if a > 0 then begin i:= 8; while i <= a do if j = m then begin write (3, ' '); j:= 0; end else begin write (i, ' '); i:= i + 2; j:= j + 1; end; end else write('Oschibka. Vvedite pologitelnoe chislo'); readln(); end.
- Log in to post comments
- 728 reads