Question

Решите задачу на языке Pascal. Дано 3 числа. Найти суму двух наибольших из них.

Answer 1

Var a,b,c,max,two: Integer;
begin
writeln('Введите 1 число');
readln(a);
writeln('Введите 2 число');
readln(b);
writeln('Введите 3 число');
readln(c);
max:=a;
if max < b then max:=b;
if max < c then max:=c;
if max=a then
begin
two:=max;
if c < b then two:=b;
if c > b then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=b then
begin
two:=max;
if c < a then two:=a;
if c > a then two:=c;
writeln(max,'+',two,'=',max+two);
end;
if max=c then
begin
two:=max;
if a < b then two:=b;
if a > b then two:=a;
writeln(max,'+',two,'=',max+two);
end;
end.

Answer 2

Конечно, давайте решим данную задачу на языке Pascal. Предположим, у нас есть три числа A, B и C, и нам нужно найти сумму двух наибольших из них.

program FindSumOfTwoLargest;

var
  A, B, C: integer;
  sum: integer;

begin
  // Вводим три числа
  write('Введите число A: ');
  readln(A);
  
  write('Введите число B: ');
  readln(B);
  
  write('Введите число C: ');
  readln(C);

// Находим сумму двух наибольших чисел
  if (A >= B) and (A >= C) then
    sum := A + ((B >= C) ? B : C)
  else if (B >= A) and (B >= C) then
    sum := B + ((A >= C) ? A : C)
  else
    sum := C + ((A >= B) ? A : B);

// Выводим результат
  writeln('Сумма двух наибольших чисел: ', sum);

end.

Обратите внимание, что в языке Pascal используется `:=` для присваивания, `readln` для ввода данных с клавиатуры, и `writeln` для вывода результатов на экран. Оператор `?` здесь используется как условный оператор: `(условие) ? значение_если_истина : значение_если_ложь`.