tag:blogger.com,1999:blog-5960836988659640122.post3080205013787423724..comments2024-03-27T20:35:49.022+07:00Comments on Code Pascal - Bai tap Pascal - Hoc Pascal truc tuyen - Tin hoc 11: Tìm các số mà tổng bình phương bằng chính nóĐô Rê Mon ĐZhttp://www.blogger.com/profile/15083814602565259047noreply@blogger.comBlogger4125tag:blogger.com,1999:blog-5960836988659640122.post-64376024858449233242018-10-27T19:23:55.883+07:002018-10-27T19:23:55.883+07:00Nhập từ bàn phím số nguyên dương n (0<n<=2*1...Nhập từ bàn phím số nguyên dương n (0<n<=2*10^9) tính và đưa ra ngoài màn hình tổng bình phương các chữ số thành viên của n. Giải giúp bài này với ạ<br />Anonymoushttps://www.blogger.com/profile/18065198105524022339noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-56877734165839352512016-10-30T23:23:41.083+07:002016-10-30T23:23:41.083+07:009*9*4<<10009*9*4<<1000Trùmhttps://www.blogger.com/profile/01414998407544722523noreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-27777575147513832252012-11-17T22:36:24.761+07:002012-11-17T22:36:24.761+07:00không chạy đượckhông chạy đượcAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5960836988659640122.post-82425007452396753542012-10-11T08:24:23.972+07:002012-10-11T08:24:23.972+07:00Bai này sao chẳng in được so nào cả vậy?
Tôi viết ...Bai này sao chẳng in được so nào cả vậy?<br />Tôi viết lại như sau, xem giúp có vấn đề gì không sao không chạy được số nào?<br />var ng1,ng2,dv,chuc,tram,ngan,n,i:integer;<br /> a:array[1..100] of integer;<br />begin<br /> writeln(' 100 so co 4 chu so ngau nhien la:');<br /> for i:= 1 to 100 do<br /> begin<br /> a[i]:=random(8999)+1000;<br /> write(a[i]:5); writeln;<br /> end;<br /> writeln('cac so co binh phuong cac chu so bang no la:');<br /> <br /> for i:=1 to 100 do<br /> begin<br /> dv:=a[i] mod 10;<br /> ng1:=a[i] div 10; {lay phan nguyen khi chia cho}<br /> chuc:=ng1 mod 10; {lay chu so hang chuc} ;<br /> ng2:=a[i] mod 100;<br /> tram:=ng2 mod 10;<br /> ngan:=a[i] div 1000; {lay chu so hang nghin}<br /> if (a[i]=(dv*dv+chuc*chuc+tram*tram+ngan*ngan)) then<br /> write(a[i]:5);<br /> end; <br /> readln<br /> end.<br /><br />Anonymoushttps://www.blogger.com/profile/03952735821315463456noreply@blogger.com