Винни-Пух решил в Новом году придумать ровно 2018 песенок-пыхтелок. Первого января он придумал 5 песенок, 2 января – на один больше (то есть, 6), на следующий день – еще на один больше (то есть, 7) и так далее (кроме, быть может последнего дня, когда он допридумывал оставшиеся до N песенки). Определите, за сколько дней он управился с этой задачей.

Думаю, чуть меньше, около 60, достаточно просто посчитать

Vars:integer:=0;a:integer:=5;beginfor var i:=6 to 1000 do begina:=a+i;s:=s+1;if a>=2018 then break;end;s:=s+1;write(s);end.Ответ:60

Pascal ABC

не уверена может быть за 2013