Question

Помогите с Pascal, 10 класс.
Найти максимальное число, среди четырёх. Задачу решить с помощью оператора IF. Числа вводятся с клавиатуры. Отдельную переменную для поиска максимального НЕ ВВОДИТЬ!

Answer 1

var a,b,c,d: integer;
begin
readln(a,b,c,d);
if (a>=b)and(a>=c)and(a>=d)
 then writeln('max = ',a)
 else if (b>=c)and(b>=d)
  then writeln('max = ',b)
  else if (c>=d) then writeln('max = ',c)
   else writeln('max = ',d);
end.

Пример:
2 8 3 7
max = 8

Answer 2

Если будет 2 одинаковых числа например ( 6 6 5 1). То выдаст 1

Answer 3

ВинСагит, а ничего, что там в первой строке написано "Предполагается, что вводимые числа различны." ?

Answer 4

После вот такого: "Я просто случайно отметил, даже решение не посмотрел... " даже и сказать нечего.

Answer 5

Да все понятно: знания языка нулевые, увидел под выводом литерал "max=" и заявил, что это "лишняя переменная".