Tin học 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 22/07/2021 By Ximena 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;beginclrscr;write(‘n=’);readln(n);for i:=1 to n dobeginwrite(‘a[‘,i,’]=’);readln(a[i]);end; write(‘Cac so hanh phuc: ‘);for i:=1 to n dobegink:=length(a[i]) div 2;if (length(a[i]) mod 2=0) thenbegin 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;readlnend. Trả lời
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. Trả lời