По следующим алгоритмам составьте формулы для вычесления значений игрика к х прибавить 1, обозначить результат В1 разделить 1 на
По следующим алгоритмам составьте формулы для вычесления значений игрика
к х прибавить 1, обозначить результат В1 разделить 1 на В1, обозначить результат В2 из В2 вычесть 1, обозначить результат В3 к В2 прибавить 1, обозначить результат В4 разделить В3 на В4, обозначить результат В5 из В5 вычесть 1, обозначить результат у
Program qq; var a,b,c, max:real; begin read(a,b,c); if (a>b) then begin if (a>c) then max:=a else max:=c; end else begin if (b>c) then max:=b else max:=c; end; writeln(max); end.