Question

Ввести с клавиатуры 4 числа и определить наибольшее из них. Результат вывести на экран.Паскаль. Без сложных условий. Срочно!!!!

Answer 1

var a, b, c, d, i: integer;

begin

   readln(a, b, c, d);

   writeln('Max: ', max(max(max(a, b), c), d));

end.

Answer 2

Конечно, вот простой пример на языке Паскаль, который позволяет ввести 4 числа с клавиатуры и определить наибольшее из них:

pascalCopy code
program FindMaxNumber;
var
  num1, num2, num3, num4, max: integer;
begin
  writeln('Введите четыре числа:');
  readln(num1, num2, num3, num4);
  
  max := num1;
  if num2 > max then
    max := num2;
  if num3 > max then
    max := num3;
  if num4 > max then
    max := num4;

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

Просто скопируйте этот код в среду программирования Pascal (например, Lazarus или Turbo Pascal), и он позволит вам ввести 4 числа с клавиатуры и определить наибольшее из них.