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

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

1. 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

   Bình luận

2. 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.

   Bình luận