Program n_10;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей трёх величин');
write ('Введите а, b, c»!);
readln (a, b, c) ;
y: =a;
if (b>y) then y:=b;
if (c>y) then y:=c;
writeln ('y=', y)
end.

Дополните эту программу так, чтобы её выполнение приводило к при сваиванию переменной у значения большей из четырёх величин а, b, с и д.​

roden13    2   24.04.2020 14:49    27