Giúp bài tập Tin học lớp 11!

**plum78** · 21-07-2011 22:31

Tức là VD n=9 thì nó ra 56408 phải k?

**Farmer_Boy** · 21-07-2011 22:36

Uhm đúng rồi, bài của bạn nèk:

Code:

program so_le;
var
  n,i:byte;
  s:double;
  c:string;
begin
  repeat
    writeln('CHUONG TRINH TINH GIA TRI BIEU THUC');
    writeln('-------((1+3)*5+7)*9+...2n+1-------');
    writeln;
    write('-Nhap so n (n<100): ');
    readln(n);
    s:=1;
    if n=0 then writeln('=> S= 1')
      else for i:=1 to n do
        begin
          if (i mod 2)<>0 then s:=s+(2*i+1)
            else s:=s*(2*i+1);
        end;
    writeln('=> S= ',s:10:2);
    write('-Co tiep tuc nua khong (C/K): ');
    readln(c);
    writeln;
  until upcase(c)='K';
  writeln('-Nhan Enter de thoat');
  readln
end.