Задача 10 Урок 13.1
Primary tabs
Задача 6 Урок 13.1Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
var i, j: integer; m, n: integer; begin m:= 10; n:= 8; for i:= 1 to m do begin if ((i mod 2) <> 0) then for j:= 1 to n do write (j, ' ') else begin n:= n div 2; if n <> 0 then for j:= 1 to n do write(j, ' '); n:= 8; end; writeln(); end; readln(); end.
- Log in to post comments
- 635 reads