Регистрация
vkd006
21.02.2022 18:04
Информатика
Есть ответ 👍

Добрый день выполнить итоговый тест.

129
179
Посмотреть ответы 1

Ответы на вопрос:

ElenaScience
ElenaScience
4,6(62 оценок)

ответ:

на форму поставил компонент 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;

Популярно: Информатика