Напишите программу для вычисления значения выражения: (a+b) *c+d*e/f / k+p*b/a+g *4/5​

pust' x chaek na pervom ostrove,a y na vtorom.

togda iz uslovia mozhno sostavit' sistemu:

x+y=79;

x-15-12=y+12;

togda y=x-39;

x+(x-39)=79;

x=59;

y=59-39=20.

otvet: 59 chaek na pervom ostrove, 20 na vtorom.

был уже такой вопрос отвечен.

от себя

скорость обработки, соответственно и обьемы обработки, обработка по требованию в минимальное время, что позволяет сразу использовать результаты в дальнейших операциях, точность рассчетов

Ясчитаю, что словами написано верное условие, в фрагменте ошибка: вместо x > 0 должно быть x > = 0 var x: integer; begin   readln(x);   if x > = 0 then     x : = x - 50   else     x : = x + 100;   writeln(x) end. пример ввода: 0 пример вывода: -50

var x, y: integer;

beginwriteln('введите два числа'); readln(x,y);  

while (x< > 0) and (y< > 0) do beginif x> y then x: =x mod yelse y: =y mod x; end; writeln('нод=', x+y);   end.