Нужно взять сумму произведений числителей и знаменателей крест накрест, то есть a на d, b на c, и поделить на произведение знаменателей. в форме, чтоб понятнее было: . дальше можно сократить: для удобства запишем получившийся числитель в переменную n, а знаменатель - в m. найдем для этого наибольший общий делитель, и для данного алгоритма запишем значение m в переменную m1, n в n1, чтобы не портить их значения: если n1> m1, поменяем значение переменной n1 на n1-m1, если же m1> n1, то сделаем наоборот - присвоим переменной m значение m1-n1, повторим этот алгоритм до тех пор, пока m1> 0 и n1> 0. после завершения цикла выберем большее число из m и n, и оно будет наиб. общим делителем. теперь вернемся к дроби m/n. поделим m и n на получившийся наибольший общий делитель. выведем получившиеся результаты. m - в качестве числителя, и n - знаменателя. дроби суммированы.
Спасибо
Ответ дал: Гость
программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе') end.
Ответ дал: Гость
varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении
Популярные вопросы