Bài 7. Câu lênh lặp

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Ngọc Hương

Viết chương trình tìm tất cả các số tự nhiên có 4 chữ số sao cho số đó chia hết cho 5 và tổng các chữ số đó là 20.

Nguyễn Lê Phước Thịnh
28 tháng 11 2019 lúc 13:17

uses crt;
var i,t,d,x,y,j:integer;
st:string;
begin
clrscr;
writeln('cac so tu nhien co 4 chu so sao cho so do chia het cho 5 va tong cac chu so la 20 gom cac so:');
for i:=1000 to 9999 do
begin
t:=0;
str(i,st);
d:=length(st);
for j:=1 to d do
begin
val(st[j],x,y);
t:=t+x;
end;
if (i mod 5=0) and (t=20) then write(i:6);
end;
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Yna Lolipop
Xem chi tiết
Lê Thị Như Ngọc
Xem chi tiết
Ngọc Hương
Xem chi tiết
Phan Thị Ka
Xem chi tiết
Bảo Ngân
Xem chi tiết
JoJo
Xem chi tiết
khanh123ok
Xem chi tiết
Nguyễn Trang
Xem chi tiết
HuyNoPro
Xem chi tiết