Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.
Код: procedure calculateSum(str : string);var s0 : string; number, sum : real;begin sum := 0; foreach s0 in Regex.Split(str, '\++') do begin number := StrToFloat(s0); if (number > 0) then begin sum := sum + number; end; end; writeln(str + '=' + sum);end; var s : string;begin write('Введите пример: '); readln(s); calculateSum(s); end.
Это может быть любое число, которое на 11 больше, чем число кратное 15. Например, 105 делится на 15 нацело. Значит число 116 вполне подходит под задуманное Ипполитом.
_____________________