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