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