Дайте решения пж ............

Question

Дайте решения пж ............

Answer 1

Даю пример на Паскале

program first;

var a,b,c:integer;

begin a := 30;b := 10;

a := a/b*2

if a > b then

c := a-4*b

else c := a+4*b;

writeln (c);

end.  

в итоге с:=46