Question

Составить алгоритм для программы, которая будет:
- принимать от пользователя 3 числа
- проверять, является ли 1 из введенных чисел суммой 2 других
- выводить на экран найденное число, либо текст Таких чисел нет

Пример работы программы:
Ввод:
4 7 3
Вывод
7 (т.к., 7 = 4 + 3)

Answer 1

Ответ:

begin

 var N: array [1..3] of real;

 writeln('Введите три числа: ');

 read(N[1],N[2],N[3]);

 writeln('Результат: ');

 for var l:=1 to 4 do begin if l>3 then write('Таких чисел нет')  

     else if N[l]=N.Sum-N[l] then begin write(N[l]); break end; end;

end.