Задача 5 урок 15

Primary tabs

Submitted by Denisyndi on Mon, 01/10/2022 - 23:25

Forums:

Задача 5 урок 15

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

1
2 3
4 5 6
7 8 9 10
11 12 13 14 15
16 17
program zadacha5;
var a: array [1..17] of integer;
  i, k, m: integer;

begin
  k:=1;
  m:=1;
  for i:=1 to 17 do
    a[i]:=i;

  for i:=1 to 17 do
  begin
    If m = k then
    begin
      k:=k+1;
      writeln(a[i]);
      m:=1;
    end else
    begin
      write(a[i],' ');
      m:=m+1;
    end;
  end;

  readln();
end.
  • Log in to post comments
  • 1288 reads
vedro-compota's picture

vedro-compota

Wed, 01/12/2022 - 20:08 

writeln(a[i]);

 write(a[i],' ');

-- дублирование + здесь вообще можно решить без else

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

Denisyndi

Sun, 01/23/2022 - 21:44 

program zadacha5;
var a: array [1..17] of integer;
  i, k, m: integer;

begin
  k:=1;
  m:=1;
  for i:=1 to 17 do
    a[i]:=i;

  for i:=1 to 17 do
  begin
    If m = k then
    begin
      k:=k+1;
      writeln();
      m:=1;
    end;
    write(a[i],' ');
    m:=m+1;
  end;

  readln();
end.
vedro-compota's picture

vedro-compota

Wed, 02/02/2022 - 20:30

засчитано

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