Написать в паскале: for s=1+1/2+1/3+1/4+1/5

mileshka890 mileshka890    2   02.09.2019 18:20    0

Ответы
Tania22012003 Tania22012003  01.09.2020 06:51
Var
   S:real;
   n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
    S:=S+1/n;
WriteLn('S = ',S);
End.

n = 5
S = 2.28333333333333
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика