Bài 7. Câu lênh lặp

trinhtrannamhoa

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

ILoveMath
28 tháng 2 2022 lúc 7:17

Var i, n, S: integer;

Begin 

Read(n);

S:=0;

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

Write (S);

Readln;

End.

Ko bt đúng ko :)

Bình luận (0)
 ILoveMath đã xóa
ILoveMath
28 tháng 2 2022 lúc 7:22

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=0 then s:=s+i;
                i:=i+1;
        end;
        writeln('Tong day so tren la: ',s);
        readln;
end.

Bình luận (0)

Các câu hỏi tương tự
Minh Đông
Xem chi tiết
huy hoàng
Xem chi tiết
Chuu
Xem chi tiết
Thư Uyên
Xem chi tiết
Huy Nguyễn
Xem chi tiết
Lâm Khả Doanh
Xem chi tiết
Nguyến Ngọc Nguyên
Xem chi tiết
DinoDrang
Xem chi tiết
Bảo Trâm
Xem chi tiết