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