Программы из 5 команд и результаты их выполнения: 11111: 7^5 * 2^5 = 16807 * 32 = 537824 11112: 7^5 / 7 * 2^4 = 2401 * 2^4 = 38416 11122: 7^5 / 7^2 * 2^3 = 343 * 8 = 2744 11222: 7^5 / 7^3 * 2^2 = 49 * 4 = 196 12222: 7^5 / 7^4 * 2 = 7 * 2 = 14 22222: 7^5 / 7^5 = 1 (Сами числа вычислять не обязательно) Все другие программы будут давать в результате одно из перечисленных выше значений. Например, результат программы 12121 = результату программы 11122: 7^5 * 2 / 7 * 2 / 7 * 2 = 7^5 / 7^2 * 2^3 ответ: количество различных чисел = 6
Программа считывает строку с клавиатуры, разбивает ее на числа (их может быть больше двух) и суммирует все найденные числа. Программа работает только с суммой, для выполнения других действий, необходима доработка.
Код: 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.
Чёрный