Question

Составить программу на PASCAL abc нахождение наибольшего из 4 чисел

Answer 1

Var a,b,c,d:integer;
begin
write('a,b,c,d->'); read(a,b,c,d);
if a<b then a:=b;
if c<d then c:=d;
if a>c then Writeln(a) else Write(c);
end.

Answer 2

Для составления программы нахождения наибольшего из 4 чисел на Pascal (или PascalABC.NET), следуйте приведенному ниже коду:

pascalCopy code
program FindLargest;
var
  a, b, c, d, largest: integer;
begin
  writeln('Введите четыре числа:');
  readln(a, b, c, d);

  largest := a; // Предполагаем, что наибольшее число - a

  // Проверяем остальные числа и обновляем значение largest при необходимости
  if b > largest then
    largest := b;
  if c > largest then
    largest := c;
  if d > largest then
    largest := d;

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

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