Viết chương trình nhập giá trị N nguyên dương,tính tổng các số lẻ từ 1 đến N

Question

Viết chương trình nhập vào giá trị N nguyên dương.Hãy tính tổng các số lẻ từ 1 đến N,với N là số nhập từ bàn phím(sử dụng while....do)

Answer 1

var     n,i:integer;S:longint;
begin
        readln(n);
        S:=0; i:=1;
        while i<=n do
        begin
           S:=S+i;    i:=i+2;
        end;
        write(S);
        readln;
end.


Chúc bạn học tốt

_nguyendavit123_ </pre>

Comments

Code thiếu phần nhập N rồi nha, bổ sung cho ông rồi đó

---

Có readln(n) rồi mà bạn? Lời dẫn nhập n thì không cần nhé!

---

Ok sao cũng được

---

Có readln(n) là lệnh nhập giá trị rồi bạn, không cần lời dẫn write(' Nhap N='), lời dẫn đó không ảnh hưởng gì đến chương trình nha bạn

---

Code ông có vấn đề tôi chạy không ra đáp án được

---

Bạn sửa lại code mình nên mới có vấn đề, thêm lệnh xóa màn hình clrscr thì phải khai báo thư viện uses crt nhé!

---

Rồi ok. Nãy chưa thêm gì chạy lỗi giờ chạy lại được rồi