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

• Lớp 11
• Tin Học

Xem đáp án

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.

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.