Question

Помогите пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в интервале от 1 до 2К-1. Заранее ОГРОМНОЕ спасибо Вам!!

Answer 1

var
    k: integer; s: real;
begin
    readln(k);
    s := ((1+(2*k-1))/2)*(((2*k-1)-1)/2+1);
    writeln(s);
end.

Answer 2

Плюс к эффективности)

Answer 3

Это спорно: подобные программы пишутся на один раз и часто бывает, что общее время на получения результата от момента получения задачи и по выдачи оказывается меньше совсем не у самой эффективной программы, а у той, которую было быстрее всего написать и отладить))))