Урок 13.1 Задача 10

Урок 13.1 Задача 10

Модифицируйте предыдущую задачу так, чтобы в каждой чётной (той, у которой номер чётный) строке выводилось N символов, а в каждой нечетной N/2 символов (сделайте проверку того, что N/2 больше нуля)

Решение:

program Project1;
 var x, g, i : integer;

begin
  writeln('Введите число x');
  readln(x);
  writeln('Введите число g');
  readln(g);
  while (x > 0) do
  begin
    if (x mod 2 = 0) then
      for i := 1 to g do
        write(i, ' ')
    else
      for i := 1 to (g div 2) do
        write(i, ' ');
    x := x - 1;
    writeln();
    end;
  readln();
end.