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

Primary tabs

Submitted by kuznmax on Mon, 10/10/2022 - 17:27

Forums:

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

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

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17 18
var a,b,c,n,d: integer;
begin
  writeln('Введите число');
  readln(n);
  a:=0;
  c:=1;
  b:=1;
  d:=0;
  while (a<=n) do
  begin
    a:=a + 1;
      if (a <=n) then
        write(a,' ');
      if (a = c) then
      begin
        writeln();
        d:=d+1;
        b:=d+1;
        c:=c+b;
      end;
  end;

  readln();

end.
  • Log in to post comments
  • 694 reads
vedro-compota's picture

vedro-compota

Wed, 10/12/2022 - 19:55 

b:=1;
  d:=0;

-- прокомментировать назначение переменных, этих и всех остальных

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

kuznmax

Sun, 10/16/2022 - 15:27 

d:=d+1;
b:=d+1;
c:=c+b;

Вот эти три переменные ответственны за вывод "елочкой"
Вывод с ними:

Введите число
10
1
2 3
4 5 6
7 8 9 10

Вывод без них:
Введите число

10
1
2 3 4 5 6 7 8 9 10

А переменная a это и есть значение которое мы получаем и выводим

vedro-compota's picture

vedro-compota

Wed, 10/19/2022 - 19:36

Нужны комментарии вида:

  a:=0; // очередное значение высоты
  c:=1; // вес первого пилота 
  b:=1; // текущая длина строки
  d:=0; // начальная длина строки

пока ставим на паузу, и решаем задачу #19 http://fkn.ktu10.com/?q=node/8697

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