Задача 10 урок 13.1
Primary tabs
http://fkn.ktu10.com/?q=node/8697
{Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов,
а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)}
program task10_lesson13_1; var m, i, j, n : integer; <pre class="brush: php">begin writeln('Enter M'); // сколько раз вывести последовательность readln(m); writeln('Enter N'); // макс число в последовательности readln(n); for i := 1 to m do begin if ((i mod 2) = 0) then for j := 1 to n do write(j, ' ') else if ((n / 2) > 0) then for j := 1 to (n div 2) do write(j, ' '); writeln(); end; readln(); end.</pre>
- Log in to post comments
- 832 reads