Đăng nhập để hỏi chi tiết
- Tin Học
- Lớp 9
- 40 điểm
- khanhduong12776 -
nhập một số nguyên dương n,hãy đếm số lượng tất cả các số có 4 chữ số và tổng các chữ số bằng n vd: nhập n =35 thì có 4 số 4 chữ số là 8999,9998,9989,9899
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
Đây là câu trả lời đã được xác thực
Câu trả lời được xác thực chứa thông tin chính xác và đáng tin cậy, được xác nhận hoặc trả lời bởi các chuyên gia, giáo viên hàng đầu của chúng tôi.
`\bb\text{C++:}`
#include <fstream>
using namespace std;
int main() {
ifstream cin("SUMDIGITS.INP");
ofstream cout("SUMDIGITS.OUT");
int t; cin >> t;
while (t--) {
int n ; cin >> n;
int res = 0;
for (int i=1000; i<=9999; i++) {
if (([](int v){
int s = 0;
while (v) {
s += v % 10;
v /= 10;
}
return s;
})(i) == n) res ++;
}
cout << res;
}
}
------------------------------
Update: Code Pascal:
uses crt;
var t,n,s,i,_, tmp, res:longint;
begin
clrscr;
readln(t);
for _:=1 to t do begin
readln(n);
res := 0;
for i:=1000 to 9999 do begin
s := 0;
tmp := i;
while (tmp<>0) do begin
s := s + tmp mod 10;
tmp := tmp div 10;
end;
if (s = n) then inc(res);
end;
writeln(res);
end;
end.
$\\$
`@Daoanhviet96`
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
Gửi bạn,
#include<bits/stdc++.h>
using namespace std;
int t,n,dem;
int main()
{
cin >> t;
while (t--)
{
cin >> n;
int dem = 0;
for (int i=1000; i<=9999; i++)
{
if (([](int v)\
{
int s = 0;
while (v)
{
s += v % 10;
v /= 10;
}
return s;
}
)(i) == n) dem ++;
}
cout << dem;
}
return 0;
}
CHÚC BẠN HỌC TỐT!
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho Lớp 9 - Ôn Thi Vào Lớp 10 Miễn Phí
TONG QUAN DE THE
The bi
File
chung trish
Fideli
File bit qui
Cote SUMDIGITS SUMDIGITSINP SUMDIGITS OUT
an thứ sử bằng h
1
2
só pinhon
hin
3
4
GHIL
Tim che d
t
Phin thing
1ply
MINPLACES
BONUS
GHILOUT
MINPLACES.INP MINPLACES OUT T HAMB
BONUSINP
BONUS.OUT
1024MB
Du duoc thay the bes PAS h ...
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
2901
47938
1864
-.- Mình không dùng pascal nên không biết nhưng mà nó có lưu cái file mã nguồn không (nếu có thì bạn click chuột phải xong chọn edit, nếu nó ra thì copy vô, còn nếu không thì mình chịu)?
1
763
1
var f:text; n,t,i,s,dem:integer; begin assign(f,'sumdigits.inp'); reset(f); read(f,n); assign(f,'sumdigits.out'); rewrite(f); while n<>0 do begin s:=s+n mod 10; n:=n div 10; end; t:=s; dem:=0; for i:=1000 to 9999 do if t=n then dem:=dem+1; write(f,dem); close(f); readln end. Rút gọnvar f:text; n,t,i,s,dem:integer; begin assign(f,'sumdigits.inp'); reset(f); read(f,n); assign(f,'sumdigits.out'); rewrite(f); while n<>0 do begin s:=s+n mod 10; n:=n div 10; end; t:=s; dem:=0; for i:=1000 to 9999 do if t=n then dem:=dem+1; write(f,dem)... xem thêm
2901
47938
1864
Chưa đúng bạn nhé
2901
47938
1864
Mà thôi để mình viết cho, chứ mình mù pascal chả đọc nhanh được -.-
2901
47938
1864
uses crt; var t,n,s,i,_, tmp, res:longint; begin clrscr; readln(t); for _:=1 to t do begin readln(n); res := 0; for i:=1000 to 9999 do begin s := 0; tmp := i; while (tmp<>0) do begin s := s + tmp mod 10; tmp := tmp div 10; end; if (s = n) then inc(res); end; writeln(res); end; end. Rút gọnuses crt; var t,n,s,i,_, tmp, res:longint; begin clrscr; readln(t); for _:=1 to t do begin readln(n); res := 0; for i:=1000 to 9999 do begin s := 0; tmp := i; while (tmp<>0) do beg... xem thêm
2901
47938
1864
Phần nhập xuất file bạn tự thêm vô nha
1
763
1
Inc là j v
777
8785
345
Inc trên bài bạn Việt là một hàm tăng giá trị của biến lên một đơn vị. "inc(res);"`=>` tăng giá trị của biến res lên 1 đơn vị nha bạn.