Помогите пожалуйста!! Составьте программу в Паскале: Вычислить сумм всех нечётных чисел в интервале от 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.

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Похожие вопросы от пользователей