đang cần gấp mọi người ơi.

*Pascal

Program Dem;

var L,R, dem,i:longint;

begin

repeat

write('L= ');readln(L);

write('R= ');readln(R);

until ( L<R) and (L>1);

d:=0;

for i:=L to R do

if i mod 10=0 then inc(d);

writeln('So luong so tron chuc: ',d);

readln

end.

*C++

#Include iostream

Using namespace std;

int main()

{

Longlong R,L,i,d=0;

cout<<"L= ";

cin>>L;

cout<<"R= ";

cin>>R;

for (i=L;i<=R;i++){

if (i % 10 ==0) 

d++;}

cout<<"So luong so tron chuc: "<<d;

return 0;

}