uses crt;
var i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
i:=1;
while i<=n do
begin
if trunc(sqrt(i))=sqrt(i) then begin inc(dem); write(i:4);
end;
i:=i+1;
end;
writeln;
writeln(dem);
readln;
end.
VCT pascal nhập số nguyên n xuất ra màn hình số lượng các số chẵn từ 1 đến n
VCT pascal nhập số nguyên n xuất ra màn hình số lượng các số lẻ từ 1 đến n
Nhập hai số x,y in ra xy (pascal) dùng lệnh for...do
viết phương trình pascal nhập vào số n có 6 chữ số kiểm tra và xuất ra màn hình tổng các chữ số của số đó, sử dụng lệnh lặp for.....do
Bài 1: Viết chương trình pascal thực hiện các yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên n b) In ra màn hình kết quả tổng các số nguyên từ 1 đến n (sử dụng câu lệnh lặp while...do) Bài 2: Viết chương trình pascal thực hiện câc yêu cầu sau: a) Nhập từ bàn phím 1 số nguyên dương n b) In ra màn hình kết quả tổng các số lẻ từ 1 đến n (sử dụng câu lệnh lặp while...do giúp mình với mình đang cần gấp rất gấp luôn
Viết chương trình nhập vào dãy n số nguyên dương tìm và in ra màn hình số lớn nhất trong các số vừa nhập( dùng lệnh while do) giúp mình với ạ
VCT pascal kiểm tra số n có phải là số nguyên tố không
VCT pascal kiểm tra số n có phải là số hoàn hảo không
VCT pascal kiểm tra số n xuất ra màn hình các số nguyên tố từ 2 đến n
VCT pascal nhập số n từ bàn phím xuất ra màn hình:
+dòng 1:các ước của n
+dòng 2:nếu n là số lẻ thì xuất ra màn hình các số nguyên tố từ 1 đến n
+dòng 3: nếu n là số chẵn thì xuất ra màn hình các số hoàn hảo
+dòng 4:tổng các ước của n
(Bài thì cuối kỳ của mình nên cần rất gấp mong nhận được câu trả lời sớm)
Viết chương trình tính tích các số chẳn và lớn hơn 10 từ 1 đến n. Với n được nhập từ bàn phím, rồi in kết quả ra màn hình
cách 1: sử dụng lệnh for do
cách 2: sử dụng lệnh while do
