Viết chương trình tính tổng các số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) .
Vd1 : n = 10
Tổng số chẵn 1 đến 10: 30
Tổng số lẻ 1 đến

Question

Viết chương trình tính tổng các số chẵn , lẻ từ 1 đến n (với n nhập từ bàn phím và n là số lớn hơn 1) .
Vd1 : n = 10
Tổng số chẵn 1 đến 10: 30
Tổng số lẻ 1 đến 10: 25
Vd2 : n = 17
Tổng số chẵn 1 đến 17: 72
Tổng số lẻ 1 đến 17: 81
Mn giúp mình với

canhtoanle · Answer

var n,i,c,s:longint;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
if i mod 2 =0 then c:=c+i else l:=l+i;
writeln('Tong chan: ',c);
write('Tong le: ',l);
readln
end.

Li_2k5 · Answer

Program Hotboy;

Uses crt;

var n,S,H,i:integer

Begin

Clrscr;

Write('Nhap so n tu ban phim :');

Readln(n);

For i:=1 to n do

If (i mod 2=0 ) then S:=S+i;

Else

H:= H+i;
Write('tonh chan la',S,'tonh le la ',H);

Readln
End.

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Tìm kiếm với hình ảnh

Hãy đăng nhập hoặc tạo tài khoản miễn phí!

Lưu vào

TRẢ LỜI

Bạn muốn hỏi điều gì?

Tham Gia Group Dành Cho Lớp 8 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí

Bạn muốn hỏi điều gì?

Lý do báo cáo vi phạm?