NT

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!!!

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

Bình luận (0)

Các câu hỏi tương tự
VT
Xem chi tiết
H24
Xem chi tiết
Xem chi tiết
H24
Xem chi tiết
NA
Xem chi tiết
MD
Xem chi tiết
PT
Xem chi tiết
BH
Xem chi tiết
ND
Xem chi tiết