Решение 1 Задача 19 Урок 13
Primary tabs
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной
строке выводились только четные числа, а в каждой четной только нечетные,
например для N=17:3 4 6 7 9 12 14 15 17
var n, m, c, d, e : integer; begin c := 1; writeln('Vvedite celoe polozhitelnoe chislo'); readln(n); m := 0; d := 0; e := 1; if n > 0 then begin for c := 1 to n do begin if (((c mod 2) = 0) and ((e mod 2) <> 0)) or (((c mod 2) <> 0) and ((e mod 2) = 0)) then write(c, ' '); d := d + 1; if d > m then begin writeln(); m := m + 1; d := 0; e := e + 1; end; end; end else writeln ('Error!'); end.
КОНСОЛЬ
Vvedite celoe polozhitelnoe chislo 23 3 4 6 7 9 12 14 17 19 21 22
- Log in to post comments
- 680 reads