Tin học Viết chương trình tính tổng các số tự nhiên

[Phan Nam]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

BT1: viết chương trình tính tổng các số tự nhiên chẵn từ 1 đên N với N là số tự nhiên do người dùng nhập ( sử dụng lệnh While...do)
BT2: Viết chương trình tính tổng các số tự nhiên lẻ lẻ từ 1 đên N với N là số tự nhiên do người dùng nhập ( sử dụng lệnh While...do)
giúp mình với

 

[pro3182001]

Mình chỉ viết phần thân thôi nhé
begin
write('Nhap so N');read(n);
i:=0;
while i <= n do
if i mod 2= 0 then
begin S:=S+i;
i:=i+1;
end else i:=i+1;
write('Tong la S',S);
end .