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

Question

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

Comments

какое количество чисел?

---

3 числа

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.

Comments

спасибо большое!!!