Предмет: Информатика,
автор: 4ydik21
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.
Ответы
Автор ответа:
4
Ответ:
Код ниже
Объяснение:
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.
Похожие вопросы
Предмет: Русский язык,
автор: aruka190999
Предмет: Английский язык,
автор: Margo20023234235
Предмет: Другие предметы,
автор: Дог82
Предмет: Литература,
автор: Hvhctdvjkgyd
Предмет: Биология,
автор: ДженсенЭклз1