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

Primary tabs

Submitted by Dennis80 on Sat, 05/21/2022 - 17:43

Forums:

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

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

var m, n, i : integer;

begin
  write('Enter an integer m and n : ');
  readln(m, n);
  while (m > 0) do
  begin
    writeln();
    if (m mod 2 = 0) and (n div 2 > 0) then
      for i := 1 to (n div 2) do
        write(i, ' ')
    else
      for i := 1 to n do
        write(i, ' ');
    m := m - 1;
    end;
  readln();
end.
  • Log in to post comments
  • 730 reads
vedro-compota's picture

vedro-compota

Sat, 05/21/2022 - 18:15 

if (m mod 2 = 0) and (n div 2 > 0)

-- зачем вторая часть условия?

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

Dennis80

Sun, 05/29/2022 - 18:07 

var m, n, i : integer;

begin
  write('Enter an integer m and n : ');
  readln(m, n);
  while (m > 0) do
  begin
    if (m mod 2 = 0) then
      for i := 1 to n do
        write(i, ' ')
    else
      for i := 1 to (n div 2) do
        write(i, ' ');
    m := m - 1;
    writeln();
    end;
  readln();
end.