Ответы
Ответ дал:
0
var
i, n: integer;
index: real;
begin
write ('Количество знаков: ');
readln (n);
for i := 1 to n do
index := index + sqrt(i);
write(index);
readln
end.
Вас заинтересует
4 месяца назад
4 месяца назад
5 месяцев назад
2 года назад
2 года назад
7 лет назад