Задача 10 Урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)
var m, n, i,h: integer; begin writeln ('введите нужное число строк'); readln (m); writeln ('введите число до которого выводить'); readln (n); i:=1; while i<=m do begin if ((i mod 2) =1) then n:=n div 2 else n:=n*2; h:=1; while h<=n do begin write (h,' '); h:=h+1; end; writeln(); i:=i+1; end; end.
- Log in to post comments
- 694 reads