// 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.
// Внимание! Если программа не работает, обновите версию!
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.