Ответы
Ответ дал:
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.
Похожие вопросы
1 год назад
1 год назад
1 год назад
2 года назад
2 года назад
8 лет назад