Nhập M, N nguyên dương (M<N) đếm xem có bao nhiêu số chẵn trong phạm vi M->N (dem:=dem+1)
2 câu trả lời
uses crt;
var m,n:longint;
begin
clrscr;
repeat readln(m,n);
until (m<n);
d:=0;
for i:=m to n do if i mod 2=0 then d:=d+1;
write(d);
readln
end.
Uses crt;
Var m, n, i, dem: integer;
Begin
Clrscr;
Write('Nhap m = '); readln(m);
Write('Nhap n= '); readln(n);
dem:=0;
For i:=m to n do if i mod 2 = 0 then dem:=dem+1;
Writeln('Co ',dem,' so chan trong pham vi tu m den n');
readln
end.
Câu hỏi trong lớp
Xem thêm
