Информатика, опубликовано 2018-08-22 23:23:49 by Гость
Помогите написать программу вычесления для заданного натурального числа N: S=1+√2+√3+....+√N
Ответ оставил Гость
Uses crt;
var i,N:integer;
s:real;
begin
s:=0;
write(вв N);
read(N);
for i:=1 to N do
s:=s+sqrt(i);
write(otvet:, s);
readkey
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.