Question

Алгоритм присваивающий переменную y значения наибольшей из трёх величин a, b и c. 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>>');
readln (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.

Answer 2

Для того чтобы модифицировать программу так, чтобы она находила наибольшее значение из четырех величин a, b, c и d, вам нужно внести следующие изменения:

pascalCopy code
program n_10;
var
  y, a, b, c, d: integer;
begin
  writeln('Нахождение наибольшей из четырех величин');
  write('Введите a, b, c, d: ');
  readln(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.

Теперь программа считывает четыре значения (a, b, c и d) и находит наибольшее из них, присваивая это значение переменной y.