Помогите пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в интервале от 1 до 2К-1. Заранее ОГРОМНОЕ спасибо Вам!!
Var k: integer; s: real; begin readln(k); s := ((1+(2*k-1))/2)*(((2*k-1)-1)/2+1); writeln(s); end.
Плюс к эффективности)
Зависит от программы, может программа перебирает суммы первых членов арифметических прогрессий при k от 1 до 10000000, кто же знает)