Question

Напишите следующую программу. Введите с клавиатуры целое число N. Выведите на экран числа от 1 до N так, чтобы каждое число выводилось столько раз, каково его значение. Например, если с клавиатуры введено 6, то на экране мы должны увидеть: 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6Написать программу нужно как можно проще в программе PascalABC

Answer 1

Вообщем, сделал задачу, но метод пузырька уже не выйдет :) т.е. сортировка по возрастанию :( упрощал как мог.

Program asd;
USES crt;
Var n,m,i,j:integer;
BEGIN
Clrscr;
Writeln('Введите число n: ');
Readln(n);
n:=n+1;
For i:=1 to n do 
 begin n:=n-1; 
   For j:=1 to n  do   
     begin   
      Write(n:3); 
     end; 
end;
END.

Answer 2

Вот простая программа на PascalABC, которая решает задачу:

program PrintNumbers;
var
  N, i, j: integer;
begin
  write('Введите целое число N: ');
  readln(N);
  
  for i := 1 to N do
  begin
    for j := 1 to i do
      write(i, ' ');
  end;
  
  writeln;
end.

Описание программы: 1. Программа начинается с объявления переменных `N`, `i` и `j`. 2. Затем программа запрашивает у пользователя ввод целого числа `N`. 3. Далее используется вложенный цикл `for`, чтобы вывести числа от 1 до `N` на экран. Внешний цикл `for` перебирает значения от 1 до `N`, а внутренний цикл `for` выводит текущее значение `i` на экран `i` раз. 4. После завершения циклов программа переходит на новую строку с помощью `writeln`.

Пример работы программы: ``` Введите целое число N: 6 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5 6 6 6 6 6 6 ```

Примечание: Программа простая и выполняет задачу напрямую, без использования сложных алгоритмов или оптимизаций.

Источники: -(https://www.wolframalpha.com) - Сниппет не содержит информации о программировании. -(https://www.python.org) - Сниппет не содержит информации о PascalABC. -(https://www.python.org) - Сниппет не содержит информации о PascalABC. -(https://www.example.com) - Сниппет не содержит информации о PascalABC. -(https://www.example.com) - Сниппет не содержит информации о PascalABC.