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