Question

Друзья, кто шарит в информатике, прогу в паскале надо (30 баллов на дороге не валяются) Составить программу. Найти кол-во последовательных нечетных чисел (начиная с 1), сумма которых не превосходит 100.

Answer 1

Ответ:

var k,s,i:Integer;

begin

while s<=100 do

begin

i:=i+1;

k:=k+1;

s:=s+(i*2-1);

end;

write(k-1)

end.

Answer 2

===== PascalABC.NET =====

begin

 var (s, i, k) := (1, 0, 100);

 while s <= k do

 begin

   i += 1;

   s += 2 * i + 1

 end;

 if s > k then

   i -= 1;

 SeqGen(i + 1, i -> 2 * i + 1).Println  

end.

Вообще задача решается без всякого программирования. Обычная сумма арифметической прогрессии с разностью 2.

(2 · 1 + 2(n - 1)) · n / 2 ≤ 100

n² ≤ 100 → n ≤ 10. Можно взять 10 нечетных чисел от 1 и их сумма будет ровно 100: 1+3+5+7+9+11+13+15+17+19 = 100

Answer 3

Конечно! Вот пример программы на языке Pascal, который находит количество последовательных нечетных чисел, сумма которых не превосходит 100:

pascalCopy code
program CountOddNumbers;

var
  count: integer;
  sum: integer;
  number: integer;

begin
  count := 0;
  sum := 0;
  number := 1;

  while sum + number <= 100 do
  begin
    sum := sum + number;

    if number mod 2 <> 0 then
      count := count + 1;

    number := number + 2;
  end;

  writeln('Количество последовательных нечетных чисел: ', count);
  readln;
end.

Программа использует переменные count для подсчета количества чисел, sum для хранения текущей суммы и number для хранения текущего числа.

Основной цикл while выполняется, пока сумма sum и текущее число number не превысят 100. Внутри цикла сумма увеличивается на текущее число, а если текущее число нечетное, то переменная count увеличивается на 1. Затем текущее число увеличивается на 2, чтобы перейти к следующему нечетному числу.

По завершении цикла программа выводит количество последовательных нечетных чисел, сумма которых не превосходит 100.

Надеюсь, это поможет! Если у вас есть еще вопросы, не стесняйтесь задавать.