Задание 20 Урок 13.1

Primary tabs

Submitted by Dobrii_kot on Thu, 10/01/2020 - 15:30

Forums:

Задание 20 Урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные.

var counter_i,counter_z,line_break,n : integer;
begin
  line_break := 1;
  counter_i := 1;
  counter_z := 0;
  write('Введите N и нажмите ENTER: ');
  readln(n);
  repeat
  begin
    if ((line_break mod 2) = 0) then
    begin
      if ((counter_i mod 2) = 1) then
        write(counter_i, ' ');
    end
    else
      if ((counter_i mod 2) = 0) then
        write(counter_i, ' ');
    counter_i += 1;
    counter_z += 1;
  end;
    if (counter_z = line_break) then
    begin
      writeln();
      line_break += 1;
      counter_z := 0;
    end;
  until (counter_i > n);
  readln();
end.
  • Log in to post comments
  • 1438 reads
vedro-compota's picture

vedro-compota

Sat, 10/03/2020 - 20:28

begin end в цикле не нужны

_____________
матфак вгу и остальная классика =)

Dobrii_kot

Sun, 10/04/2020 - 09:54

Удалены операторные скобки

var counter_i,counter_z,line_break,n : integer;
begin
  line_break := 1;
  counter_i := 1;
  counter_z := 0;
  write('Введите N и нажмите ENTER: ');
  readln(n);
  repeat
    if ((line_break mod 2) = 0) then
    begin
      if ((counter_i mod 2) = 1) then
        write(counter_i, ' ');
    end
    else
      if ((counter_i mod 2) = 0) then
        write(counter_i, ' ');
    counter_i += 1;
    counter_z += 1;
    if (counter_z = line_break) then
    begin
      writeln();
      line_break += 1;
      counter_z := 0;
    end;
  until (counter_i > n);
  readln();
end.