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

Primary tabs

Submitted by slavina036 on Wed, 08/18/2021 - 20:06

Forums:

Задача 19 урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=18:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.

БЕЗ вложенных циклов:

program U131Z19;
var n,m,l,i: integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=1;
  l:=0;
  for i:=1 to n do
  begin
    write(i,' ');
    l:=l+1;
    if (l=m) then
    begin
      writeln();
      m:=m+1;
      l:=0;
    end;
  end;
  readln();
end.

С вложенным циклом:

program U131Z19;
var n,m,l,i: integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=1;
  l:=0;
  i:=1;
  while i<=n do
  begin
    for l:=1 to m do
    begin
      write(i,' ');
      i:=i+1;
    end;
    writeln();
    m:=m+1;
  end;
  readln();
end.
  • Log in to post comments
  • 1106 reads
vedro-compota's picture

vedro-compota

Tue, 09/14/2021 - 22:46

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18 19 20 21

-- проверить для вложенных циклов

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

slavina036

Wed, 09/15/2021 - 08:39 

program U131Z19;
var n,m,l,i: integer;
begin
  writeln('vvedite polozhitelnoe chislo');
  readln(n);
  m:=1;
  l:=0;
  i:=1;
  while i<=n do
  begin
    for l:=1 to m do
    begin
      if (i<=n) then
      begin
        write(i,' ');
        i:=i+1;
      end
      else
        break;
    end;
    writeln();
    m:=m+1;
  end;
  readln();
end.