Bài 1: viết chương trình đếm các số chẵn có trong đoạn [ M,N ]

Question

hauyen · Answer

Uses crt;

Var n,i,d:integer;

Begin

Clrscr;

Write(‘M:’);readln(M);

Write(‘N:’);readln(n);

For i:=m to n do if i mod 2=0 then d:=d+1;

writeln(‘So chan co trong doan ‘,m’,’,’,n,’ la:’,d);

readln end

diepbich · Answer

Uses crt;

Var dc, i, n, m: integer;

Begin

Clrscr;

Write(‘Nhap n = ‘); readln(n);

Write(‘Nhap m = ‘); readln(m);

dc:=0;

For i:=m to n do if i mod 2 = 0 then inc(dc);

Writeln(‘Co ‘,dc,’ so chan trong doan M den N’);

Readln

End.