Модераторы ! через 20 мин сдавать на
вещественные числа х, у, z являются исходными данными для следующего алгоритма: 1) переменной m присвоить значение х; 2) сравнить значения m и у: если у больше m, переменной m присвоить значение у; 3) сравнить значения m и z: если z больше m, переменной m присвоить значение z.
выясните, какую решает этот алгоритм. запишите его на языке программирования pascal. решите аналогичную для чисел х, у, z и w.

ответ:

для 3-х чисел:

var x,y,z,m: integer;

begin

readln (x);

readln (y);

readln (z);

m: =x;

if y > m then m: =y;

if z > m then m: =z;

writeln (m);

end.

для 4-х чисел:

var x,y,z,w,m: integer;

begin

readln (x);

readln (y);

readln (z);

readln (w);

m: =x;

if y > m then m: =y;

if z > m then m: =z;

if w > m then m: =w;

writeln (m);

end.

объяснение:

поиск наибольшего числа из 3-х и 4-х чисел

program qwerty; uses crt; var a: real; beginclrscr; writeln('введите количество миль'); readln(a); a: = a*1.6; writeln('кол-во киллометров - ',a: 2: 2); readkey; end.

смотри скриншот