Домашнее задание: Ввести три числа и найти наибольшее из них. Пример: Введите три числа:...

Question

Домашнее задание: Ввести три числа и найти наибольшее из них. Пример: Введите три числа: 4 15 9 Наибольшее число 15​

Answer 1

Для типа integer

Program n_1;

var x,y,z:integer;

begin

   writeln('Введите 3 числа:');

   read(x, y, z);

   if y>x then x:=y;

   if z>x then x:=z;

   writeln('Наибольшее число: ',x);

end.

Для типа real

Program n_1;

var x,y,z:real;

begin

   writeln('Введите 3 числа:');

   read(x, y, z);

   if y>x then x:=y;

   if z>x then x:=z;

   writeln('Наибольшее число: ',x:0:5);

end.