profile
Опубликовано 6 лет назад по предмету Информатика от Аккаунт удален

сделать программу в делфи: Сократить дробь. пришлите пожалуйста код программы и всю программу на costya.constantin-b2011@yandex.ru

  1. Ответ
    Ответ дан JohnWatson

    Отправил.

     

    Procedure  TForm1.Button1Click(Sender: TObject); 

    var i,min,qw,bx:integer; 

    begin  qw:=strtoint(edit1.Text); 

    bx:=strtoint(edit2.Text); 

    if qw>bx then min:=a else 

    min:=bx;

    for i := 1 to min do 

    if (qw mod i = 0) and (bx mod i = 0)

    then

    begin qw:=bx div i; 

    bx:=bx div i; 

    end;

    edit1.Text:=inttostr(qw); 

    edit2.Text:=inttostr(bx); 

    end;  

Самые новые вопросы