Помогите решить задачу в паскаль.S: =1+√2+√3+√4+… +√V1 <= V <= 120

Question

65

в избранное ссылка

Знаете ответ?

fktrctq_ · Accepted Answer

47

fktrctq_

23 марта 2023

Program z; vars: real; i,v: integer; beginwrite ('Vvedite v'); readln (v); s: =1; for i: =2 to v dobegins: =s+sqrt (i); end; writeln ('s=',s); end.

комментировать

в избранное ссылка отблагодарить