Нечётная прогрессия Известны количество и сумма нескольких подряд идущих нечётных чисел....

Question

Нечётная прогрессия

Известны количество и сумма нескольких подряд идущих нечётных чисел. Нужно найти эти числа.

Input
Со стандартного устройства ввода вводится 2 целых числа – N и S – количество и сумма.

Output
Нужно выдать на стандартное устройство вывода через пробел N искомых целых нечётных чисел. Пробел в конце строки не ставить.

Sample Input
5 35

Sample Output
3 5 7 9 11

Answer 1

//FPC 2.6.4
var n, sum, i: longint;
begin
readln (n, sum);
for i:=0 to n-1 do sum:=sum-i*2;
sum:=sum div n;
for i:=0 to n-1 do write (sum+i*2, ' ');
end.

Comments

а можно пожалуйста попроще паскаль абс

---

ОК

---

ты напишешь?

---

АД

---

*Да))

---

спасибо))))

---

begin
var n:=readinteger; var sum:=readinteger;
sum-=range(0, (n-1)*2, 2).Sum;
range(sum div n, (sum div n)+(n-1)*2, 2).Print;
end.