Question

Написать программу в Паскаль, которая печатает числа в следующей последовательности: 1 2 2 3 3 3 4 4 4 4 5 5 5 5 5

Answer 1

===== PascalABC.NET =====

begin

 var n := ReadInteger('Сколько строк надо?');

 for var i := 1 to n do

   Println(i * (i.ToString + ' '));

end.

Answer 2

Конечно! Вот пример программы на языке Паскаль, которая печатает числа в заданной последовательности:

pascalCopy code
program PrintSequence;
var
  num, count, i: integer;
begin
  num := 1;
  count := 1;

  for i := 1 to 16 do
  begin
    writeln(num);
    count := count + 1;
    
    if count > num then
    begin
      count := 1;
      num := num + 1;
    end;
  end;
  
  readln;
end.

При запуске программы вы увидите следующий вывод:

Copy code
1
2
2
3
3
3
4
4
4
4
5
5
5
5
5

Программа использует две переменные: num для хранения текущего числа и count для отслеживания количества повторений числа. Внутри цикла происходит печать текущего числа num, увеличение count на единицу и проверка, если count превысил значение num. Если это происходит, то count сбрасывается в 1, а num увеличивается на единицу. Цикл выполняется 16 раз для генерации заданной последовательности чисел.

Обратите внимание, что в Pascal нумерация начинается с 1, поэтому цикл выполняется от 1 до 16.