Tin học 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 ) help me khó quá 22/07/2021 By Clara 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 ) help me khó quá
uses crt;var n,k,m,i:longint; s:string;beginclrscr; write(‘N,k= ‘);readln(n,k); m:=1; for i:=1 to k do m:=m*10; str(n,s); if (length(s)=2*k)and(n mod m=n div m) then writeln(‘n la so hanh phuc’) else writeln(‘n khong la so hanh phuc’);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