1Напечатайте таблицу сложения для чисел от 15 до 20. Все данные расположите в несколько столбцов так что бы они были видны на экране. Паскаль2 Скрин =

1)Напечатайте таблицу сложения для чисел от 15 до 20. Все данные расположите в несколько столбцов так что бы они были видны на экране. (Паскаль)

2) Скрин =>

    a:=a+5;

    end.

    end.

    a:array [1..n,1..n] of integer;

    a[1,i+1]:=k;

    begin

    end;

    sr:real;

    n=7;

    s:=s+a;

    begin

    end;

  • Program Zonik353_1;
    uses crt;
    const
      m=15;
      n=20;
    var
      x,y:integer;
    begin
      writeln('+----------------------------------+');
      writeln('|             PIFAGOR              |');
      writeln('|        таблица сложения          |');
      writeln('|           от 15 до 20            |');
      writeln('+----------------------------------+');
      write('|    ');
      for y:=m to n do
        write('| ',y:2,' ');
         writeln('| ');
      for x:=m to n do
        begin
          writeln('+----------------------------------+');
          write('| ',x:2);
          for y:=m to n do
              write(' | ',x+y:2);
            if x+y<100 then writeln(' | ')
                    else writeln('| ');
        end;
      writeln('+----------------------------------+');
    end.

    Program Zonik353_2;
    uses crt;
    var
      s,k,a:integer;
      sr:real;
    begin
      s:=0;
      k:=0;
      a:=10;
      repeat
        s:=s+a;
        k:=k+1;
        a:=a+5;
      until a>99;
      sr:=k*k+s/2;
      writeln ('Sr: ',sr:0:5);
      end.

  • a[i+1,1]:=k;

    k:=15; 

    var

    var

    repeat

    2)

    writeln;

    i,j,k:Integer;

    sr:=k*k+s/2;

    until a>99;

    s:=0;

    for i:=1 to n do begin

    for j:=1 to n do write (a[i,j]:4);

    s,k,a:integer;

    readln;

    a:=10;

    k:=k+1;

  • 1)

    for j:=2 to n do  a[i,j]:=a[i,1]+a[1,j];

    for i:=1 to n-1 do begin

    k:=0;

    const

    k:=k+1;

    writeln ('Sr: ',sr:0:5);

    for i:=2 to n do