программка нахождения суммы нечётных чисел S= 1+3+5+7+...+2*N-1 Паскаль

Программа нахождения суммы нечётных чисел S= 1+3+5+7+...+2*N-1 Паскаль

Задать свой вопрос
1 ответ

Ответ:

begin

 var n := ReadInteger();

 var sum := 0;

 for var i := 1 to n do

   if i mod 2 = 1 then

     sum += i;

 Write(sum)

end.

Изъяснение:

PascalABC.NET

Дрогомерецкая Регина
begin Range(1, ReadInteger(), 2).Sum.Println;end.
Nikita Tauber
либо так
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт