Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

Помогите написать программу вычесления для заданного натурального числа 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.