Question

Помогите пожалуйста с задачей по информатике на acmp! РЕШАТЬ ОБЯЗАТЕЛЬНО НА ПАСКАЛЕ. От перестановки что-то меняется ... Всем известно, что «от перестановки слагаемых сумма не изменяется». Однако, случается и так, что перестановка двух чисел приводит к более интересным последствиям. Пусть, например, заданы три числа: a1, a2, a3. Рассмотрим равенство a1+ a2= a3. Оно может быть неверным (например, если a1= 1, a2= 4, a3= 3), однако может стать верным, если поменять некоторые числа местами (например, если поменять местами a2 и a3, оно обратится в равенство 1 + 3 = 4). Ваша задача – по заданным трем числам определить: можно ли их переставить так, чтобы сумма первых двух равнялась третьему. Входные данные Входной файл INPUT.TXT содержит три целых числа: a1, a2, a3 (−108 ≤ a1, a2, a3 ≤ 108). Выходные данные В выходной файл OUTPUT.TXT выведите слово «YES», если заданные числа можно переставить так, чтобы сумма первых двух равнялась третьему. В противном случае выведите в выходной файл слово «NO». Примеры № INPUT.TXT OUTPUT.TXT 1 3 5 2 YES 2 2 2 5 NO 3 2 2 4 YES

Answer 1

begin

 var(a,b,c):=ReadInteger3;

 ((a+b=c) or (a+c=b) or (b+c=a)?'YES':'NO').Print

end.

Объяснение:

На сайте вбивать текст построчно в форму, никаких отсылок файлами, потому что если файлом слать, там компилятор Free Pascal вызывается, а тут надо вбить, удалить пустые строки, которые появятся после копирования с этого сайта и выбрать компилятор PascalABC.NET

Answer 2

Конечно, вот решение задачи на Паскале:

pascalCopy code
program PermutationSum;
var
  a1, a2, a3: integer;
begin
  // Считываем входные данные
  readln(a1, a2, a3);
  
  // Проверяем, можно ли переставить числа так, чтобы a1 + a2 = a3
  if (a1 + a2 = a3) or (a1 + a3 = a2) or (a2 + a3 = a1) then
    writeln('YES')
  else
    writeln('NO');
end.

Просто сохраните этот код в файл с расширением .pas (например, permutation_sum.pas), скомпилируйте его и запустите программу, предоставив входные данные. Она выведет "YES", если числа можно переставить так, чтобы сумма первых двух равнялась третьему, и "NO" в противном случае.