а1 = 100
аn = 990
n = 90
S = (100+990)*90/2 = решишь сам))
// PascalABC.NET 3.0, сборка 1073
var
day,nwords:integer;
begin
day:=1; nwords:=4;
while nwords<50 do begin Inc(day); nwords:=nwords+4 end;
Writeln('50 слов будет выучено на ',day,'-й день')
end.
<em><u>Тестовое решение:</u></em>
50 слов будет выучено на 13-й день
Что-бы поставить кол-во знаков после запятой я просто использовал библиотеку iomanip и функцию fixed, и через setprecision поставил кол-во знаков. Естественно это можно сделать через формулы и какие-то алгоритмы, но это очень долго, муторно, да и зачем? Если это намного эффективнее, быстрее и намного легче.