Nhập vào 2 số nguyên M,N(M<N).Tính tổng các số chẵn trong phạm vi từ M đến N.Cần lắm luôn r
2 câu trả lời
input m,n
output tổng chẵn từ m đến n
điều kiện n>m
b1 nhập m với n
b2 cho chương trình lập từ m đến n
b3 nếu là số chẵn thì cộng dồn vào , nếu là số lẻ sẽ cho qua
b4 xuất kết quả
Program Dapan;
Uses crt;
Var M,N,i,T: integer;
Begin
Clrscr;
S:=0;
Write('Nhap so M va N (M<N):'); Readln(M,N);
For i:= M to N do
If (i mod 2=0) then S:=S=i;
Writeln('Tong cac so chan tu ',M,' den ',N,' la:', S);
Readln
End.
Câu hỏi trong lớp
Xem thêm
