Задача 10 Урок 13
Primary tabs
Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля).
Предыдущая задача:
M раз выведете на экран числа от 1 до N с помощью вложенных циклов. Так чтобы в консоли было:
11......NN}M раз
var a, i, c, d: integer; begin writeln('Vvedite kolichestvo cifr v stroke'); readln(a); writeln('Vvedite kolichestvo strok'); readln(i); for c := 1 to i do begin if (((c mod 2) <> 0) and ((a / 2) > 0)) then begin for d := 1 to (a div 2) do write(d, ' '); writeln(); end else if ((c mod 2) = 0) then begin for a := 1 to a do write(a, ' '); writeln(); end; end; end.
КОНСОЛЬ
Vvedite kolichestvo cifr v stroke 8 Vvedite kolichestvo strok 10 1 2 3 4 1 2 3 4 5 6 7 8 1 2 3 4 1 2 3 4 5 6 7 8 1 2 3 4 1 2 3 4 5 6 7 8 1 2 3 4 1 2 3 4 5 6 7 8 1 2 3 4 1 2 3 4 5 6 7 8
- Log in to post comments
- 714 reads