Сколько слагаемых должно быть в сумме 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 lt;= n)do begin
tmp +=3;
sum +=tmp;
inc(answer);
end;
Writeln(answer);
end.

Ilja Sharif 2019-08-28 18:04:21

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

Максимка Стефанчук 2019-08-28 18:06:30

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.

Даниил 2019-08-28 18:12:44

ща еще напишу

Леонид Кифяк 2019-08-28 18:19:36

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

Полина Павлычева 2019-08-28 18:22:50

спасибо

О проекте

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

Добро пожаловать!