Viết phương trình nhập vào từ bàn phím 2 số nguyên dương m,n (m

23/08/2021 Bởi Josephine

0 bình luận về “Viết phương trình nhập vào từ bàn phím 2 số nguyên dương m,n (m<n) hãy kiểm tra và đếm xem trên đoạn [m,n] có bao nhiêu số chẵn chia hết cho 5 tính tổ”

1. Program BTT;
   Uses crt;
   Var m,n,i,s,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap m: ‘); Readln(m);
           Write(‘Nhap n: ‘); Readln(n);
           s:=0; d:=0;
           For i:=m to n do
                   If i mod 10 = 0 then
                   Begin
                           inc(d);
                           s:=s+i;
                   End;
           Writeln(‘Co ‘,d,’ so chan chia het cho 5′);
           Write(‘Tong la: ‘,s);
           Readln
   End.

   Bình luận

2. uses crt;
   var m,n,i,kq,dem: longint;
   begin
           clrscr;
           write(‘Nhap m: ‘); readln(m);
           write(‘Nhap n: ‘); readln(n);
           for i:=m to n do
                   if (i mod 2 = 0) and (imod 5 =0) then
                   begin
                           inc(dem);
                           kq:=kq+i;
                   end;
           writeln(‘So so chan chia het cho 5 la: ‘,dem);
           Write(‘Tong la: ‘,kq);
           readln;
   end.

   Bình luận