Урок 13.1 Задача 16
Primary tabs
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента
var i, j, M, N: integer; begin i:=8; readln(M); Readln(N); if (M<8) then writeln('Errror') else repeat for j:=1 to N+1 do begin if (i>M) then break; if j=N+1 then write(3,' ') else begin write(i,' '); i:=i+2; end; end; until i>M; readln(); end.
- Log in to post comments
- 309 reads