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á

0 bình luận về “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á”

1. uses crt;
   var n,k,m,i:longint; s:string;
   begin
   clrscr;
      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’);
   readln
   end.

   Bình luận

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

   Bình luận