Program n_10 var y, a, b, c: integer; begin writeln ('Нахождение наибольшей из трёх...

Question

Program n_10 var y, a, b, c: integer; begin writeln ('Нахождение наибольшей из трёх величин'); write ('Введите a, b, с>>'); readln (a, b, c); y:=a; if (b>y) then y:=b; if (c>y) then y:=c; writeln ('y=' , y) end. Дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин a, b, c и d.

Answer 1

Ответ:

Код ниже

Объяснение:

Program n_10

var y, a, b, c, d: integer;

begin

writeln ('Нахождение наибольшей из четырёх величин');

write ('Введите a, b, с, d>>');

read(a, b, c, d);

y:=a;

if (b>y) then y:=b;

if (c>y) then y:=c;

if (d>y) then y:=d;

writeln ('y=' , y)

end.