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

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

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

ща еще напишу

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

спасибо

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017// Внимание! Если программа не работает, обновите версию!Beginvar n:= ReadInteger('Введите число');var tmp:=1;var answer:=1;var sum:=1;while (sum <= n)do begintmp +=3;sum +=tmp;inc(answer);end;Writeln(answer);end.