Задача 21Урок 13.1
Primary tabs
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные
var a,b, n, m, m1:integer; begin writeln('vvedite chislo: '); readln(n); b:=1; a:=1; m:=1; m1:=m; repeat if ((b mod 2)=1)and((a mod 2)=0) then begin write(a, ' '); m:=m-1; end else if ((b mod 2)=0)and((a mod 2)=1) then begin write(a, ' '); m:=m-1; end; if m=0 then begin writeln(); m:=m1+1; m1:=m; b:=b+1; end; a:=a+1; until (n<=a); readln(); end.
Вывод консоли:
vvedite chislo: 30 2 3 5 6 8 10 11 13 15 17 18 20 22 24 26 27 29
- Log in to post comments
- 42 reads