Максим
5 год назад
Нечётная прогрессияИзвестны количество и сумма нескольких подряд идущих нечётных чисел. Нужно найти эти числа.InputСо стандартного устройства ввода вводится 2 целых числа – N и S – количество и сумма.OutputНужно выдать на стандартное устройство вывода через пробел N искомых целых нечётных чисел. Пробел в конце строки не ставить.Sample Input5 35Sample Output3 5 7 9 11
ОТВЕТЫ
Bonka
Oct 24, 2020
//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.
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.
100
Смежные вопросы:
