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
2 câu trả lời
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.
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.
Câu hỏi trong lớp
Xem thêm
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
