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