Создать таблицу умнажения в pascalabc, желательно на 2 или на 3, главное чтобы в столбик и обязательно с примером. типа 2*1=2 2*2=4 заранее.

ответ:

на форму поставил компонент memo

в edit1 и edit2 вводим значения строк и столбцов

для цикла for i: = for j: =

на кнопке следующий код

объяснение:

procedure tform1.button1click(sender: tobject);

  var i,j: integer; s: string;

begin

  a: = strtoint(edit1.text);

  b: = strtoint(edit2.text);

 

    for i: = 1 to a do begin

          s: = '';

    for j: = 1 to b do

      s: = s+'   '+inttostr(i*j);

      memo1.lines[i-1]: = s;

    end;

end;

Если линейка вверху документа не отображается, установите флажок  линейка  на вкладке  вид. выделите текст, который вы хотите изменить, и выполните одно из указанных ниже действий. чтобы изменить отступ первой строки, на горизонтальной верхней линейке перетащите маркер  отступа первой строки  где должен начинаться текст. чтобы увеличить или уменьшить отступ слева для всего абзаца, на вкладке  главная  в группе  абзац  нажмите кнопку  увеличить отступ  или  уменьшить отступ.

Const n = 15; var a: array[1..n]of integer; i,m,min5: integer; f: boolean; begin   for i: =1 to n do begin       write('введите ',i,' член массива ');       readln(a[i]);       if a[i] mod 5=0 then begin           m: =m+1;           if not f then begin               min5: =a[i];               f: = not f;           end;           if (f) and (a[i]< min5) then min5: =a[i];       end;   end;   writeln('кратных 5: ',m: 3,' минимальный: ',min5: 4); end. тестовое решение введите 1 член массива 13 введите 2 член массива 10 введите 3 член массива 15 введите 4 член массива 5 введите 5 член массива 25 введите 6 член массива 23 введите 7 член массива 12 введите 8 член массива 32 введите 9 член массива 11 введите 10 член массива 21 введите 11 член массива 43 введите 12 член массива 15 введите 13 член массива 25 введите 14 член массива 13 введите 15 член массива 14 кратных 5:   6    минимальный:   5