program So_nguyen_to;
uses crt;
var i,dem,j:Integer;
begin clrscr;
writeln('Cac so nguyen to tu 2 den 100 la:');
for j:=2 to 100 do
begin
dem:=0;
for i:= 1 to j do if j mod i=0 then dem:=dem+1;
if dem=2 then write(j,' ');
end;
readln;
end.
Viết chương trình nhập vào từ bàn phím một số nguyên dương n, in ra màn hình các số lẻ nhỏ hơn hoặc bằng số nguyên dương n. Chương trình yêu cầu nhập lại nếu n <=0. (Sử dụng câu lệnh While … do)
Viết chương trình in ra màn hình sử dụng vòng lặp while để in ra màn hình tổng các số có giá trị lớn hơn 2.000 với n là số tự nhiên lớn hơn 2
Viết chương trình nhập dãy n số nguyên từ bàn phím và in ra màn hình số nhỏ nhất và lớn nhất với n được nhập từ bàn phím
Câu 1 viết chương trình tính giá trị biểu thức với x,y là các số nguyên dc nhập từ bàn phím. In kết quả ra màn hình Caau2 viết chương trình vào 3 số nguyên a,b,c.In ra màn hình số lớn nhất trong 3 số đó
viết chương trình nhập vào một số nguyên n a. In ra màn hình các số chẵn b. In ra màn hình số lớn nhất trong dãy số đó
Vct pascal nhập 2 số a ,b ( a>0;b>0) xuất ra màn hình + Tổng của a+b + Các ước của tổng a+b + Xét tổng (a+b) có phải là số nguyên tố không
Vct pascal nhập 2 số a, b ( a>0;b>0) xuất ra màn hình + Tổng của a+b + Các ước của tổng a+b + xét tổng a+b có phải là số nguyên tố không
