Ответ(ы) на вопрос:
ГостьVar i,n:integer;
s: real;
Begin
Writeln('Число слагаемых - ');
readln(n);
for i:=1 to n do s:=s+1/i;
writeln('s = ',s);
End.
Гость2 1/3+(-0.75)+(-1/4)=2 1/3-75/100-1/4=2 1/3-3/4-1/4=2 1/3-4/4=2 1/3-1=1 1/3
Не нашли ответ?
Похожие вопросы