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