Bài 7. Câu lênh lặp

Nguyễn Văn Thắng

cho 1 sô nguyên n. hãy viết ct in ra tất cả số chính phương

Bùi Anh Tuấn
2 tháng 3 2021 lúc 20:11

Bình luận (0)
Nguyễn Lê Phước Thịnh
3 tháng 3 2021 lúc 13:27

uses crt;

var n,i:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=0 to n do 

  if trunc(sqrt(i))=sqrt(i) then write(i:4);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Trần Viết Huy Thịnh
Xem chi tiết
Nguyễn Như Huyền
Xem chi tiết
Hiếu
Xem chi tiết
Hoà Trần
Xem chi tiết
Lê Đăng Khôi
Xem chi tiết
Vinh Đoàn
Xem chi tiết
Huyền Trang Trang
Xem chi tiết
Phong
Xem chi tiết
Lan Phương
Xem chi tiết