Question

Написать программу нахождения наиболее наибольшего из трех чисел PASCAL

Answer 1

Program chisla;
var a,b,c,max:real;
begin
readln(a,b,c);
if (a>b) and (a>c) then max:=a;
if (a<b) and (b>c) then max:=b
if (a<c) and (b<c) then max:=c;
writeln(max);
end.

Answer 2

Program chik;
var a,b,c,min:real;
begin
read(a,b,c);
min:=a;
if(b>min)then min:=b;
if(c>min)then min:=c;
writeln(min);
end.

Answer 3

Программа нахождения наибольшего из трех чисел на Pascal

Вот пример программы на языке Pascal, которая находит наибольшее из трех чисел:

program FindLargestNumber;
var
  num1, num2, num3, largest: integer;
begin
  writeln('Введите первое число: ');
  readln(num1);
  
  writeln('Введите второе число: ');
  readln(num2);
  
  writeln('Введите третье число: ');
  readln(num3);
  
  largest := num1;
  
  if num2 > largest then
    largest := num2;
  
  if num3 > largest then
    largest := num3;
  
  writeln('Наибольшее число: ', largest);
end.

В этой программе мы объявляем переменные `num1`, `num2`, `num3` и `largest` типа `integer`. Затем мы запрашиваем у пользователя ввод трех чисел и сохраняем их в соответствующих переменных.

Далее мы инициализируем переменную `largest` значением `num1`. Затем мы сравниваем `num2` с `largest` и, если `num2` больше, присваиваем `largest` значение `num2`. Затем мы сравниваем `num3` с `largest` и, если `num3` больше, присваиваем `largest` значение `num3`.

Наконец, мы выводим наибольшее число на экран с помощью `writeln`.

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