Консольное приложение?
Мне нужен паскаль

Ответы и объяснения

Лучший Ответ!
2014-03-31T19:08:24+04:00
Program Project17;

{$APPTYPE CONSOLE}
{$R *.res}

uses  System.SysUtils;

var  R, A, B: integer;

const  MaxIn = 100;

begin
  R := 0;
  try
    { TODO -oUser -cConsole Main : Insert code here }
    for A := 1 to MaxIn do
      for B := 1 to MaxIn do
        if (A + B) = (A * B) then
        begin
          R := R + 1;
          WriteLN('A=' + IntToStr(A) + ', B=' + IntToStr(B));
        end;
    if R = 0 then
      WriteLN('Нет чисел');
  except
    on E: Exception do
      WriteLN(E.ClassName, ': ', E.Message);
  end;
  WriteLN('Готово');
  Readln;
end.