Question

Из трёх данных вещественных чисел R, M, Y выбрать наибольшее и вывести его на экран. Числа R, M, Y ввести с клавиатуры с помощью оператора ввода

Answer 1

Ответ:

program n4;

var

 R, M, Y, a: real;

begin

 writeln('введите M');

 readln(M);  

 writeln('введите R');

 readln(R);    

 writeln('введите Y');

 readln(Y);  

 if(M > R) and (M > Y) then begin

   

   

 writeln('M=', M);

   

 end

 else if (R > M) and (R > Y) then begin

   

   

   a := R; writeln('R=', R); end

 else if (Y > M) and (Y > R) then begin

   a := Y;

   writeln('Y=', Y);

 end;

   

end.

Объяснение: