Составить алгоритм для программы, которая будет: - принимать от пользователя 3 числа
- проверять, является ли 1 из введенных чисел суммой 2 других
- выводить на экран найденное число, либо текст Таких чисел нет
Пример работы программы:
Ввод:
4 7 3
Вывод
7 (т.к., 7 = 4 + 3)
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.