Lập trình đơn giản

Nguyễn Tường

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

Nguyễn Lê Phước Thịnh
19 tháng 9 2020 lúc 10:52

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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Hưng Quốc
Xem chi tiết
Nguyễn Ally
Xem chi tiết
Hắc Phong
Xem chi tiết
Ma Phan Đức
Xem chi tiết
Quỳnh
Xem chi tiết
Anhthuwliz
Xem chi tiết
khonopro
Xem chi tiết
Thảo Nguyên 36-88
Xem chi tiết
Tích Nguyệt
Xem chi tiết