ghi tên 3 số có tổng là 10
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Rô-bốt ghi chép tổng số chữ cái có trong tên của tat cả các bạn trong tổ 1 thành dãy số liệu như sau: 4, 3, 2, 3, 4, 5, 3, 5.
a) Dãy số liệu trên có tắt cả 8 số. Số đầu tiên trong dây là số 4
b) Tên của các bạn trong tổ 1 có nhiều nhất 5 chữ cái. Ít nhất 2 chữ cái
c) Trong tổ 1 không có bạn tên là Nguyệt. Vì trong dãy số liệu không có tên Nguyệt
Gọi số cần tìm là abc (a>0). Vì là số chia hết cho 2 nên c=0;2;4;6;8. Để là số nhỏ nhất có 3 chữ số thì a chỉ có thể là 1. Nếu b = 0 thì tổng các chữ số khi cộng lại sẽ không bằng 10. Vậy b = 1 còn c = 8. Số cần tìm là 118
const fi='dl.dat';
fo='kq.dat';
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i];
end;
writeln(f2,dem1,' ',dem2);
writeln(f2,t1);
writeln(f2,t2);
close(f1);
close(f2);
end.
const fi='dl.dat';
fo='kq.dat';
var f1,f2:text;
a:array[1..100]of integer;
i,n,dem1,dem2,t1,t2:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
dem1:=0;
dem2:=0;
for i:=1 to n do
begin
if a[i] mod 2=0 then inc(dem1)
else inc(dem2);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if (a[i] mod 6=0) then t1:=t1+a[i];
if (a[i] mod 9=0) and (a[i] mod 2<>0) then t2:=t2+a[i]
end
writeln(f2,dem1,' ',dem2)
writeln(f2,t1)
writeln(f2,t2)
close(f1)
close(f2)
;-;
Gọi số cần tìm là abc (a>0).
Vì là số chia hết cho 2 nên
c=0;2;4;6;8.
Để là số nhỏ nhất có 3 chữ số thì a chỉ có thể là 1.
Nếu b = 0 thì tổng các chữ số khi cộng lại sẽ không bằng 10.
Vậy b = 1 còn c = 8.
Số cần tìm là 118
ba so đó là:7+2+1=10
1+8+1 >181 , 118 , 811