Задача 16 урок 13.1
Primary tabs
Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента
Решение вложенными циклами:
program zadacha16; var i, j, n, m: integer; begin writeln('Vvedite chislo N:'); readln(n); writeln('Vvedite chislo N:'); readln(m); i := 8; if (n >= 8) and (n > 0) then while i<=n do begin j:=1; while j <= m*2 do begin if (i mod 2 = 0) and (i<=n) then write(i,' '); i:=i+1; j:=j+1; end; if i <= n then write('3 '); end else writeln('Chislo ne sootvetstvyet kriteriyam'); readln(); end.
Решение в 1 цикл:
program zadacha16; var i, j, n, m: integer; begin writeln('Vvedite chislo N:'); readln(n); writeln('Vvedite chislo M'); readln(m); i := 8; j:=0; if (n >= 8) and (n > 0) then while i <= n do begin write(i,' '); i := i + 2; j:=j+1; if j = m then begin write('3 '); j:=0; end; end else writeln('Chislo ne sootvetstvyet kriteriyam'); readln(); end.
- Log in to post comments
- 488 reads