Задача 20 урок 13.1
Primary tabs
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
3 4 6 7 9 12 14 15 17
Способ №1 (1 цикл)
program task_20_lesson_13_1; var i, n, l, c, str : integer; begin readln(n); c := 0; // счетчик к-ва чисел в строке l := 1; // максимальное кол-во чисел в строке i := 1; // число из последовательности ограниченное N str := 1; // первая строка while i <= n do begin if ((str mod 2) = 1)and((i mod 2) = 0) then write(i,' '); if ((str mod 2) = 0)and((i mod 2) = 1) then write(i,' '); i += 1; // увеличиваем следующее число c += 1; if (c = l) then // проверка на кол-во чисел в строке begin writeln(); str := str + 1; //считаю строки (начал с 1, когда объявил переменную) l += 1; c := 0; end; end; readln(); end.
Способ №2 (Вложенный цикл)
program task_19_lesson_13_1; var i, j, n, c, str : integer; begin readln(n); c := 0; // кол-во элементов в строке i := 1; j := 1; // максимальное кол-во элементов в строке str := 1; while (i <= n) do begin repeat if ((str mod 2) = 1)and((i mod 2) = 0) then write(i,' '); if ((str mod 2) = 0)and((i mod 2) = 1) then write(i,' '); i := i + 1; c := c + 1; // кол-во элементов в строке растет until (c >= j) or (i > n); // проверка перехода на след строку writeln(); str += 1; j := j + 1; // прирост в следующей строке c := 0; // обнуляем счетчик чисел в строке end; readln(); end.
- Log in to post comments
- 2399 reads
vedro-compota
Sun, 10/03/2021 - 12:19
Permalink
if ((str mod 2) = 1)and((i
-- проверить не нужен ли между проверками else
_____________
матфак вгу и остальная классика =)
Gurgen
Mon, 10/04/2021 - 22:55
Permalink
да "else" нужен , так ка
vedro-compota
Sun, 10/03/2021 - 12:20
Permalink
также посмотреть решение
также посмотреть решение задачи 9 урока 9 http://fkn.ktu10.com/?q=node/8539
_____________
матфак вгу и остальная классика =)
Gurgen
Mon, 10/04/2021 - 22:59
Permalink
Задача 9 урок 9