Урок 13.1 Задача 19
Primary tabs
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные
var i, j, M, N, k: integer; begin readln(N); i:=1; j:=1; M:=1; k:=1; for i:=1 to N do begin if ((M mod 2)=0) and not((i mod 2)=0) then write(i,' '); if not((M mod 2)=0) and ((i mod 2)=0) then write(i,' '); if (j=M) then begin writeln(); j:=0; M:=M+1; end; j:=j+1; if (k=1) then k:=2 else k:=1; end; readln(); end.
var i, j, M, N: integer; begin readln(N); i:=1; j:=1; M:=1; repeat for j:=1 to M do begin if ((M mod 2)=0) and not((i mod 2)=0) then write(i,' '); if not((M mod 2)=0) and ((i mod 2)=0) then write(i,' '); if (j=M) then writeln(); i:=i+1; if (i>N) then break; end; M:=M+1 until i>N; readln(); end.
- Log in to post comments
- 355 reads