s0s

Ответ от Hunter342[гуру]
ссылка
P.S: Делал на скорую руку

Ответ от Алексей Корсунов[гуру]
а) Program DDoS;
var
i,s:real;
begin
readln(i);
s:=0;
while i<5 do
i:=i+1;
s:=s+1/i;
writeln(s);
end.
б) Program DDoS;
var
i,s:real;
begin
readln(i,s);
while i>1 do
begin
s:=s+1/i;
i:=i-1
end;
writeln(s);
end.
в) Program DDoS;
var
i,s:real;
begin
readln(s,i);
repeat
s:=s+1/i;
i:=i-1
until i<=1;
writeln(s);
end.
г) Program DDoS;
var
n,i:integer;
s:real;
begin
s:=1;
readln(n,s);
for i:=2 to n do
s:=s+1/i;
writeln(s);
end.
вроде так

Ответ от Валик Дубин[новичек]
Вот такой результат у меня получился. Можете проверить через компилятор.
а)
var
i, : integer;
s : real;
begin
s:=0; i:=0;
while i<5 do i:=i+1;
s:=s+1/i;
writeln(s);
end.
s=0,2
б)
var
i:integer;
s:real;
begin
s:=0; i:=1;
while i>1 do
begin
s:=s+1/i; i:=i-1
end;
writeln(s);
end.
s=0
в)
var
i:integer;
s:real;
begin
s:=0; i:=1;
repeat
s:=s+1/i;
i:=i-1
until i<=1;
writeln(s);
end.
s=1
г)
var
i, n: integer;
s : real;
begin
s:=1; n:=1;
for i:=2 to n do s:=s+1/i;
writeln(s);
end.
s=1

Ответ от 22 ответа[гуру]