Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Mai Thi

VCT pascal nhập hai số a;b (a>0 ; b>0) Xuất ra màn hình các số chính phương từ a-b giúp mình với ạ😭mình đang cần gấp!!!

Kiều Vũ Linh
13 tháng 4 2023 lúc 14:08

var tam,a,b,i:integer;

begin

write('a = ');readln(a);

write('b = ');readln(b);

if a < b then

begin

tam:=a;

a:=b;

b:=tam;

end;

for i:=a to b do

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

readln;

End.


Các câu hỏi tương tự
Vy Đan Hà Thị
Xem chi tiết
User
Xem chi tiết
Xem chi tiết
AETC丶NhấtㅤGG
Xem chi tiết
Nguyễn Thanh Anh
Xem chi tiết
Minh Anh Doan
Xem chi tiết
Phúc Trần
Xem chi tiết
Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Tiến Đạt
Xem chi tiết