Question

Viết chương trình nhập vào 1 số tự nhiên n (kiểu longint) và nhập vào m (m ≤ 10), sau đó tính tổn m các số tận cùng của n. Xuất kết quả ra màn hình

Answer 1

uses crt;
var n:longint;
m,i,d,t,x,y:integer;
st:string;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
write('Nhap m='); readln(m);
until (0<=n) and (0<m) and (m<=10);
str(n,st);
d:=length(st);
t:=0;
for i:=d-m+1 to d do
begin
val(st[i],x,y);
t:=t+x;
end;
writeln('Tong ',m,' chu so tan cung cua ',n,' la: ',t);
readln;
end.