Viết chương trình PASCAL nhập số n. Liệt kê (in) các chữ số là số chính phương của số n.
Giúp mik nha Thanks mn nhìuuu

Question

Viết chương trình PASCAL nhập số n. Liệt kê (in) các chữ số là số chính phương của số n. Giúp mik nha Thanks mn nhìuuu

hoaianh · Answer

- G&aacute;n tổng S với gi&aacute; trị ban đầu l&agrave; 0   - Sử dụng để lấy từng chữ số của số tự nhi&ecirc;n N bằng c&aacute;ch:   Lặp trong khi m&agrave; N c&ograve;n > 0 th&igrave;   + G&aacute;n k l&agrave; chữ số cuối c&ugrave;ng của N.   + Tiến h&agrave;nh cắt chữ số cuối c&ugrave;ng của N đi bằng việc lấy N chia cho 10.   + Cộng dồn S: = S + k   Lặp lại cho đến khi N = 0 th&igrave; dừng

ngochoa · Answer

program ct;
uses crt;
var i,n:integer;
begin clrscr;
write(‘Nhap so n: ‘); readln(n);
write(‘Cac so chinh phuong cua so ‘,n,’ la: ‘);
for i:=1 to n do
if sqrt(i)=trunc(sqrt(i)) then write(i:3);
readln;
end.

Viết chương trình PASCAL nhập số n. Liệt kê (in) các chữ số là số chính phương của số n. Giúp mik nha Thanks mn nhìuuu

Viết một bình luận Hủy