Question

Решить задачу в паскале авс ..."даны 3 любых числа, вывести на экран максимальное". через оператор "if

Answer 1

Var a,b,c: integer;
begin
writeln('введите три числа');
readln(a,b,c);
if (a>b) and (a>c) then writeln('больше число ==> ',a);
if (b>a) and (b>c) then writeln('больше число ==> ',b);
if (c>b) and (c>a) then writeln('больше число ==> ',c);
end.