Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.
Код: 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.
1) Если x^3 < 10, то (x+1)^3 > 20. Это верно при x = 2. 2^3 < 10, 3^3 > 20 2) Если x(x+1) > 10, то (x+1)(x+2) < 10. Это верно при x = -4 (-4)(-3) = 12 > 10; (-3)(-2) = 6 < 10 Но при x = 2 будет ложная посылка (2*3 > 10 - это ложно), из которой следует ложный вывод 3*4 < 10. Поэтому импликация верна. ответ x = 2 3) Если x(x+1)(x+2) > 25, то x < x-1 Это сложнее. x < x-1 - ложно при любом х. Импликация будет истинной, только если посылка ложная. x(x+1)(x+2) > 25 - должно быть ложно. Это при x = 2. x(x+1)(x+2) = 2*3*4 = 24.
Код:
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.