Урок 13.1. Задача 16.
Primary tabs
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента, например для M=4:
8 10 12 14 3 16 18 20 22 3....3....и т.д.
Заметьте. что в предыдущей задаче M было зафиксировано =2:
8 10 3 14 16 3....3....и т.д.
var N, M, a, b, i : integer; begin write('Enter an integer 7+ : '); readln(N); write('Enter an integer : '); readln(M); a := 8; b := 8; if N < 8 then writeln('Error') else while (a < N) do begin a := a + 3; for i := 1 to M do begin if (b <= N) then write(b, ' '); b := b + 2; end; if b <= N then write(3, ' '); end; readln(); end.
- Log in to post comments
- 234 reads