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