uses crt;
var i,t,kt,j:integer;
begin
clrscr;
t:=0;
for i:=999 downto 100 do
begin
kt:=0;
for j:=2 to trunc(sqrt(i)) do
if i mod j=0 then kt:=1;
if kt=0 then t:=t+i;
end;
writeln('Tong cac so nguyen to trong day la: ',t);
readln;
end.
Bài 1 viết chư ơng trình pascal nhập vào 2 số nguyên m và n đưa ra màn hình tổng số chia hết cho 3 và 5 từ m đến N
Viết chương trình nhập vào một số nguyên x. Tính và đưa ra màn hình giá trị y = ∛x + √x + 1. *
Câu trả lời của bạn
viết chương trình nhập vào từ bàn phím 2 số nguyên a,b đưa ra màn hình giá trị lớn nhất trong chúng
viết chương trình tính và đưa ra mh tổng s=1²+3²+5²..+99² mọi ng giúp mình với
lập trình nhập vào từ bàn phím số nguyên dương n tính và in ra màng hình tổng các số chẳn từ 1 đến n
Viết chương trình lập 2 số nguyên dương m, n từ bàn phím (m<n) đếm và đưa ra màn hình số lượng các số lẻ không chia hết cho 3 hoặc 5 trong phạm vi từ m đến n
Viết chương trình in ra màn hình các dòng chữ "Xin chao cac ban" và "Moi ban den voi Pascal
Viết chương trình a,Nhập vào một xâu kí tự b,đếm và in ra màn hình số kí tự là chữ cái(chữ hoa) có trong xâu
