Question

[trinhtrannamhoa]

Viết chương trình tính tổng các số lẻ từ 1 tới n (với n được nhập từ bàn phím) bằng vòng lặp While..do *

Answer 1

[ILoveMath]

Var i, n, S: integer;

Begin 

Read(n);

S:=0;

If i mod 2 = 1 then while i:=1 to n do S:=S+i;

Write (S);

Readln;

End.

Ko bt đúng ko :)

Answer 2

[ILoveMath]

Tham khảo:

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        i:=1;
        While i<>n do
        Begin
                If i mod 2=1 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.