Эту задачу уже решали здесь. Но, если трудно поискать, то вот программа: var a,b,c,d,x,y,z,y1,z1,y2,z2,nod:integer; begin writeln('1-я дробь (числитель и знаменатель):'); readln(a,b); writeln('2-я дробь (числитель и знаменатель):'); readln(c,d); y1:=a*d+c*b; y2:=y1; z1:=b*d; z2:=z1; while (y2>0)and(z2>0) do if y2>z2 then y2:=y2 mod z2 else z2:=z2 mod y2; nod:=y2+z2; y1:=y1 div nod; z:=z1 div nod; x:=y1 div z; y:=y1 mod z; if x>0 then writeln(x,' ',y,'/',z) else writeln(y,'/',z); end.
Пример: 1-я дробь (числитель и знаменатель): 3 4 2-я дробь (числитель и знаменатель): 5 6 1 7/12
<span>Фраза "ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ" содержит 25 символов. Если на 1 символ отводить до 4-х сантиметров, то будет вполне достаточно одной биты метровой длины.</span>
Блок-схема - в прилагаемом файле. Программа на паскале: var a,b:integer; begin write('a = '); readln(a); write('b = '); readln(b); if a<>b then begin a:=a+b; b:=a; end else begin a:=0; b:=0; end; writeln('a = ',a,' b = ',b); end.
Я так понял, что это нужно написать на ЯП Pascal Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости. Работает стабильно, хоть и всегда можно реализовать как-то еще проще :) upd: обновил фалы, теперь всё написано как надо