Question

Program abc1; var i,j:integer; begin for i:=1 to 10 do for j:=1 to 10 do writeln(j,'x',j,'=',i*j); end. Переделать эту программу с помощью цикла repeat или while

Answer 1

Конечно, давайте переделаем данную программу с использованием цикла `repeat`:

Program abc1;
var
  i, j: integer;
begin
  i := 1;
  repeat
    j := 1;
    repeat
      writeln(j, 'x', i, '=', i * j);
      Inc(j);
    until j > 10;
    Inc(i);
  until i > 10;
end.

Или с использованием цикла `while`:

Program abc1;
var
  i, j: integer;
begin
  i := 1;
  while i <= 10 do
  begin
    j := 1;
    while j <= 10 do
    begin
      writeln(j, 'x', i, '=', i * j);
      Inc(j);
    end;
    Inc(i);
  end;
end.

Обе версии программы выполняют аналогичные действия, как и ваша исходная программа с использованием вложенных циклов `for`. Они используют цикл `repeat` и `while` для достижения того же самого результата.