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

Primary tabs

Submitted by i_love_cookies on Sat, 05/15/2021 - 07:21

Forums:

Вложенные циклы

{13.1 — 19 Пользователь передает целое положительное число N,
выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:
1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17
}

Одним циклом

var n,i,symbol,lenght: integer;
begin
  lenght:=1;
  writeln('wanna see tree? write num!');
  readln(n);
  for i:=1 to n do
    begin
      write(i, ' ');
      symbol:=symbol+1;
      if (symbol=lenght) then
        begin
          writeln();
          lenght:=lenght+1;
          symbol:=0;
        end;
    end;
  writeln('...');
  readln();
end.
//wanna see tree? write num!
//23
//1
//2 3
//4 5 6
//7 8 9 10
//11 12 13 14 15
//16 17 18 19 20 21
//22 23 ...
  • Log in to post comments
  • 1842 reads

i_love_cookies

Sat, 05/15/2021 - 07:22

{13.1 — 19 Вложенным циклом}

var n,i,lenght,symbol: integer;
begin
  lenght:=1; i:=1; symbol:=1;
  writeln('wanna see tree? write num!');
  readln(n);
  while i < n do
    begin
      repeat
        write(i, ' ');
        i:=i+1;
        symbol:=symbol+1;
      until (symbol>=lenght) or (i>n);
      writeln();
      symbol:=0;
      lenght:=lenght+1;
    end;
  writeln('...');
  readln();
end.
//wanna see tree? write num!
//33
//1
//2 3
//4 5 6
//7 8 9 10
//11 12 13 14 15
//16 17 18 19 20 21
//22 23 24 25 26 27 28
//29 30 31 32 33
//...
vedro-compota's picture

vedro-compota

Sat, 05/15/2021 - 16:37

решение засчитано

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