Решение 3 Задача 18 Урок 13
Primary tabs
Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух):
810два числа3101214три числа316182022четыре числа3....3....и т.д.Вложенные циклы.
var n, m, b, c, d : integer; begin c := 8; writeln('Vvedite celoe polozhitelnoe chislo'); readln(n); m := 2; d := 0; if n > 0 then begin while c <= n do begin for d := 1 to m do begin if c <= n then write(c, ' '); c := c + 2; end; write(3, ' '); m := m + 1; end; end else writeln ('Error!'); end.
КОНСОЛЬ
Vvedite celoe polozhitelnoe chislo 50 8 10 3 12 14 16 3 18 20 22 24 3 26 28 30 32 34 3 36 38 40 42 44 46 3 48 50 3
- Log in to post comments
- 1170 reads
vedro-compota
Sun, 10/31/2021 - 12:27
Permalink
засчитано
засчитано
_____________
матфак вгу и остальная классика =)