Question

Помогите , пожалуйста, написать программу на паскале ! :))) 1 1 3 1 3 5 1 3 5 7 1 3 5 7 9 нужно вывести числа в таком порядке ( в паскале)

Answer 1

Var
a,b,i,i2:integer;
Begin
Readln(a);
b:=1;
for i:=1 to a do begin
if b mod 2 = 0 then b:=b+1;
for i2:=1 to b do if i2 mod 2 <>0 then Write(i2,' ');
b:=b+1;
Writeln();
end;
End.

Answer 2

Для вывода чисел в таком порядке в Pascal можно использовать циклы и условные операторы. Вот пример программы, которая выводит числа в указанном порядке:

program PrintNumbers;
var
  i, j, k: integer;
begin
  k := 1;
  
  for i := 1 to 5 do
  begin
    for j := 1 to i do
    begin
      write(k, ' ');
      k := k + 2;
    end;
    
    writeln;
  end;
  
  readln;
end.

В данном примере используется вложенный цикл `for`, чтобы управлять количеством выводимых чисел в каждой строке. Переменная `k` используется для хранения текущего числа, которое нужно вывести. Каждый раз, когда число выводится, оно увеличивается на 2.

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

1
3 5
7 9 11
13 15 17 19
21 23 25 27 29

Надеюсь, это поможет вам создать программу на Pascal.