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

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

1. – Gán tổng S với giá trị ban đầu là 0

   – Sử dụng để lấy từng chữ số của số tự nhiên N bằng cách:

   Lặp trong khi mà N còn > 0 thì

   + Gán k là chữ số cuối cùng của N.

   + Tiến hành cắt chữ số cuối cù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ì dừng

   Bình luận

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

   Học tốt!

   Bình luận