uses crt;
var i:integer;
begin
clrscr;
for i:=0 to 9999 do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
readln;
end.
theo C++ hay là free pascal vậy anh?
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Viết chương trình pascal cho phép người dùng nhập vào 1 số nguyên, hãy in ra màn hình bảng cửu chương đó
Viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím giá trị các phần tử là các số nguyên đưa ra màn hình mảng vừa nhập với thứ tự các phần tử ngược lại, nhập 3, 6, 8 đưa ra 8, 6, 3. Đếm số phần tử có giá trị lớn hơn 10. Đưa ra màn hình số lượng số nguyên tố trong mảng
Viết chương trình nhập vào số nguyên N, tính và đưa ra màn hình trung bình các số lẽ từ 1 đến N
Viết chương trình tính và xuất ra màn hình tổng của các số từ 20 đến 30. S=20+21+22+...+30
Giúp em gấp mn ơi Viết chương trình in ra các số chẵn nhỏ hơn hoặc bằng n ( với n được nhập từ bán phím) sao cho 15 số được in trên một dòng
Dùng cấu trúc lặp với số lần biết trước để viết chương trình đưa ra màn hình 10 dòng của bảng cửu chương 3
Viết chương trình in bảng cửu chương từ 2 đến 9 ra màn hình,bố trí 4 bảng đầu ở nửa trên ,4 bảng sau ở nửa dưới.giúp e đc k ạ e cần gấp😿
