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

// 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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.