Предмет: Информатика, автор: golovanev03

Алгоритм присваивающий переменную 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.

Ответы

Автор ответа: contrlc
27
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.

golovanev03: Это правильно?
contrlc: Проверьте
golovanev03: не могли бы вы пожалуйста записать столбиком чтоб было понятно
contrlc: ???
golovanev03: ну как я писал каждое с новой строчкиъ
contrlc: Обновите страницу
golovanev03: а как можно роверить правильно или нет?
contrlc: Запустите программу PascalABC или PascalABC.NET и введите 4 числа
golovanev03: ну сперва же ввести всю программу а когда уже будет просить ввести 4 числа то тогда уже вводить?
contrlc: Да
Похожие вопросы
Предмет: Другие предметы, автор: izbatumismyg
Предмет: Математика, автор: севинчхаликова