Nhập vào một số tự nhiên N và nhập vào M,sau đó tinh tổng M các số tận cùng của N. Ví dụ 1: nhập n:=2019 nhập m:=2 kết quả:=10. Ví dụ 2: nhập n:=20202

0 bình luận về “Nhập vào một số tự nhiên N và nhập vào M,sau đó tinh tổng M các số tận cùng của N. Ví dụ 1: nhập n:=2019 nhập m:=2 kết quả:=10. Ví dụ 2: nhập n:=20202”

1. uses crt;

   var m,n,d,t:longint;

   begin

   clrscr;

   write(‘n=’);readln(n);

   repeat write(‘m (m<=n)=’);readln(m);

   until m<=n;

   d:=0; t:=0;

   repeat 

   t:=t+n mod 10;

   n:=n div 10;

   d:=d+1;

   until d=m;

   write(‘kq=’,t);

   readln;

   end.

   Bình luận

2. uses crt;
   var t,i,n,m:longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      write(‘m=’);readln(m);
      repeat
         inc(t,n mod 10);
         inc(i);
         n:=n div 10;
      until i=m;
      writeln(t);
   readln
   end.

   Bình luận