Задание 20 Урок 13.1
Primary tabs
Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:
3 4 6 7 9 12 14 15 17
var i,n,i1,a: integer; begin write('Vvedite chislo: '); readln(n); i:=1; i1:=1; a:=0; while(i1<=n) do begin repeat if((i mod 2) = 0) and ((i1 mod 2) = 1) then begin write(i1, ' '); end else if((i mod 2) = 1) and ((i1 mod 2) = 0) then begin write(i1, ' '); end; i1:=i1+1; a:=a+1; until(i<=a) or (i1>n); a:=0; writeln(); i:=i+1; end; readln(); end.
- Log in to post comments
- 741 reads