Question

Сколько слагаемых должно быть в сумме 1+4+7+10..., чтобы эта сумма оказалась больше некоторого данного числа.
Ответьте пожалуйста❤

Answer 1

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

Begin
var n:= ReadInteger('Введите число');
var tmp:=1;
var answer:=1;
var sum:=1;
while (sum <= n)do begin
tmp +=3;
sum +=tmp;
inc(answer);
end;
Writeln(answer);
end.

Answer 2

спасибо, а ты можешь написать этот болие понятно, ибо я в 8 классе

Answer 3

var n, tmp, answer:integer;
Begin
readln(n);
tmp:=1;
answer:=1;
while (tmp <= n)do begin
tmp := 2*tmp + 3;
answer:= answer+1;
end;
Writeln(answer);
end.

Answer 4

ща еще напишу

Answer 5

По формуле арифметической прогрессии
var n, answer:integer;
Begin
readln(n);
answer:=1;
while (((2 + 3*(answer-1))/2)*answer <= n) do answer:= answer+1;
Writeln(answer);
end.

Answer 6

спасибо