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á
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á
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.
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.