Практична робота № 15

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
begin
 a:=StrToint(Edit1.text);
 b:=StrToint(Edit2.text);
     repeat
    if a>b then a:=a-b else b:=b-a;
    ListBox1.Items.Add('a='+IntToStr(a)+', b='+IntToStr(b));
    until a=b;
    edit3.Text:=inttostr(a);
end;

Скачати