profile
Размещено 5 лет назад по предмету Информатика от teylor1momsen

выполните сложение двух дробных чисел в Pascal ABC через while

  1. Ответ на вопрос
    Ответ на вопрос дан Аккаунт удален
    var
      i,z:integer;
      a:array[1..2,1..3]of integer;
      begin
    for i:=1 to 2 do
      begin
      write('Введите числитель и знаменатель дроби (через пробел): ');
      readln(a[1,i],a[2,i]);
      end;
    a[2,3]:=a[2,1]*a[2,2]; 
    a[1,3]:=a[1,1]*a[2,2]+a[1,2]*a[2,1];
    z:=a[1,3] div a[2,3];
    a[1,3]:=a[1,3] mod a[2,3];
    i:=a[2,3];
    while i>1 do
       begin
       if (a[2,3] mod i=0) and (a[1,3] mod i=0) then
         begin
         a[2,3]:=a[2,3] div i;
         a[1,3]:=a[1,3]div i;
         i:=a[2,3];
         end
         else i:=i-1;
       end;
    write(a[1,1],'/',a[2,1],'+',a[1,2],'/',a[2,2],'=');
    if z>0 then write(z);
    if a[1,3]>0 then writeln('(целая часть) ',a[1,3],'/',a[2,3],'(дробная часть)')
    end.
Не тот ответ на вопрос, который вам нужен?
Найди верный ответ
Самые новые вопросы
tegysigalpa2012
Русский язык - 5 лет назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.