Решение задачи 17 из главы 13.1
Primary tabs
Решение задачи 17 из главы 13.1
17. Модифицируйте решение предыдущей задачи. так чтобы пользователь вводил второе число M, которое отвечало бы за длину возрастающего фрагмента
program Project17; var a, b, c, f: integer; begin b:=8; c:=1; writeln('Vvedite zeloe polozhitelnoe chislo bolshe 8:'); readln(a); writeln('Vvedite zeloe polozhitelnoe chislo dliny otrezka:'); readln(f); if (a > 0) then begin while (b < a) do repeat for c:=1 to f do begin write(b, ' '); b:=b+2; end; c:=c+1; write (3, ' '); until (c > f); end else writeln('Vy vveli otrizatelnoe chislo!'); readln(); end.
- Log in to post comments
- 1006 reads
testok
Tue, 10/13/2020 - 09:21
Permalink
исправлено