sao không ai giúp vậy làm ơn bài : số hạnh phúc ; Số hạnh phúc là số có 2*k chữ số , trong đó tổng k chữ số đầu bằng tổng k chữ số cuối (Free pascal ) khó quá

thuytruongltt

2 năm trước

Loga Sinh Học lớp 12

0 lượt thích 25 xem

1 trả lời

Thích Trả lời

vinhsupper79

uses crt;
Var k,t,i,j,tong,ton,n:longint; a:array[1..100000]of string;
begin
clrscr;
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;

write('Cac so hanh phuc: ');
for i:=1 to n do
begin
k:=length(a[i]) div 2;
if (length(a[i]) mod 2=0) then
begin tong:=0; ton:=0;
for j:=1 to k do begin val(a[i][j],t); inc(tong,t); end;
for j:=k+1 to n do begin val(a[i][j],t); inc(ton,t); end;
if tong=ton then write(a[i],' ');
end;
readln
end.

Vote (0) Phản hồi (0) 2 năm trước

lethephiet

Program So_Hanh_Phuc;
uses crt;
Var
i,a,a1,b,b1,c,d: Longint;
BEGIN
Clrscr;
Write(' Cac so hanh phuc co 4 chu so la: ');
For i:=1000 to 9999 do
begin
a:= (i div 1000);
a1:= ( i mod 1000);
b:= a1 div 100;
b1:= a1 mod 100;
c:= b1 div 10;
d:= b1 mod 10;
If (a+b) = (c+d) then write(i,' ');
end;
Readln;
END.

Vote (0) Phản hồi (0) 2 năm trước

Các câu hỏi liên quan

Dưới ách cai trị rất tàn bạo, dã man của phong kiến phương Bắc từ thế kỉ I đến thế kỉ X, nhân dân ta vẫn tìm cách phát triển được sản xuất. Theo em, vì sao nhân dân ta làm được như vậy và nhằm mục đích gì?

Một ô tô đi từ A đến B mất 3/2 giờ . Nếu nó đi với vận tốc nhỏ hơn là 10km/h thì nó sẽ đi mất nhiều thời gian hơn là 5/6 giờ . Tính quãng đường AB

Khử hoàn toàn 32,20 gam hỗn hợp gồm CuO, Fe2O3 và ZnO bằng CO ở nhiệt độ cao thu được 25,00 gam hỗn hợp X gồm 3 kim loại. Cho X tác dụng vừa đủ với dung dịch HNO3 thì thu được V lít khí NO duy nhất (đktc) và dung dịch chứa m gam muối (không chứa NH4NO3). tính m và V

trả lời câu hỏi tin 7 hai câu luân

Viết đoạn văn ngắn theo chủ đề + gợi ý trên Hãy giúp tôi đi mà :(( tôi hỏi lần thứ 3 rồi Rất cần sự giúp đỡ

Chứng minh câu thơ Bác đầy trăng ( ko chép mạng , tự làm )

vẽ Đậu mầm và hoa quả chủ đề: có full và kí đầy đủ !!!

Thu gọn đơn thức, tìm bậc, hệ sô, phần biến ( cái phần a và b đầu tờ đề )

Cho tam giác ABC có 3 góc nhọn. Kẻ các đường cao BD, CE của tam giác ABC. a) Chứng minh: Tứ giác BECD nội tiếp. Xác định tâm O của đường tròn đó. b) Chứng minh: Tứ giác ADHE nội tiếp. c) Gọi H là giao điểm của BD và CE. Kẻ HK vuông góc BC tại K. Chứng minh: A,H,K thẳng hàng. d) Chứng minh: Tứ giác BEHK nội tiếp từ đó chứng minh EC là phân giác của góc DEK.

lập bảng so sánh tình hình nông nghiệp đời sống của nhân dân Đàng trong Đàng ngoài

Loga.vn - Cộng Đồng Luyện Thi Trực Tuyến