var k,s,i:Integer;
begin
while s<=100 do
i:=i+1;
k:=k+1;
s:=s+(i*2-1);
end;
write(k-1)
end.
===== PascalABC.NET =====
var (s, i, k) := (1, 0, 100);
while s <= k do
i += 1;
s += 2 * i + 1
if s > k then
i -= 1;
SeqGen(i + 1, i -> 2 * i + 1).Println
Вообще задача решается без всякого программирования. Обычная сумма арифметической прогрессии с разностью 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
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.
===== 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