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