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