Нужно взять сумму произведений числителей и знаменателей крест накрест, то есть 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 - знаменателя. дроби суммированы.
Спасибо
Ответ дал: Гость
var
v,p,n,h,d: real;
begin
read(p,n,h,d);
v: =3*p*n/10/10/10*h*d*d;
end.
Ответ дал: Гость
на выходе 109
program p_1; var x,y: real; beginwriteln ('vvedite x'); readln(x); writeln ('vvedite y'); readln(y) ; if x=1 then y: =3; {на всякий случай, мало ли по клавише тне никак не можно ставить другие значения. эту строчку можно и }x: =y-x; y: =2*x; x: =2*y+x; y: =y+x/2; writeln(x,'',y); readln; end.
Популярные вопросы