Помогите пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в...

0 голосов
48 просмотров

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


Информатика (42 баллов) | 48 просмотров
Дано ответов: 2
0 голосов
Правильный ответ

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

(15.5k баллов)
0

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

0

Зависит от программы, может программа перебирает суммы первых членов арифметических прогрессий при k от 1 до 10000000, кто же знает)

0 голосов
// PascalABC.NET 3.2, сборка 1377 от 19.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k:=ReadInteger('k=');
  Writeln('s=',Range(1,2*k-1,2).Sum)
end.

Пример
k= 4
s=16

(150k баллов)