0 bình luận về “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)”
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.
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.
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.