Ответы и объяснения

2013-10-17T09:31:02+00:00
5)

Program pr;
uses crt;

Var a,b:integer;
    s:real;
   
Begin

s:=0;
a:=2;
b:=3;
While a<>20 do
Begin
s:=s+(a/b);
a:=a+3;
b:=b+3;
end;
Writeln('s=',s);

readln;
end.