quá dễ
uses crt;
var m,n,i,t,dem:integer;
begin
clrscr;
write('m='); readln(m);
write('n='); readln(n);
t:=0;
dem:=0;
if m<n then
begin
for i:=m to n do
if (i mod 2=1) and (i mod 5=0) then
begin
t:=t+i;
inc(dem);
end;
end;
writeln('tong cac so le chia het cho 5 trong khoang tu ',m,' den ',n,' la: ',t);
writeln('so luong so le chia het cho 5 trong khoang tu ',m,' den ',n,' la: ',dem);
readln;
end.
viết công thức pascal nhập số n từ bàn phím . xuất ra màn hình các số chia hết cho 2 và 5 từ 1 đến n
1Cho số nguyên dương N ,đếm số cách phân tích N thành tổng hai số nguyên tố .
2 Viết chương trình nhập vào số nguyên dương N.
a) Xuất ra màn hình N có phải là số nguyên tố đối xứng hay không.
b) Thông báo ra màn hình số nguyên tố đối xứng nhỏ nhất lớn hơn N.
mong các bạn giúp mình với ạ.
viết chương trình nhập vào số nguyên dương N.Kiểm tra và in ra màn số N là số chẵn hay lẽ
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
viết chương trình in ra màn hình các số hoàn hảo trong khoảng từ 1 đến N Với N nguyên dương nhập từ bàn phím
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
Viết chương trình nhập vào 3 số nguyên dương a, b, c. Xuất ra màn hình tổng và tích của 3 số đó.
viết phương trình nhập vào dãy A gồm n là số nguyên
a) tìm và đưa ra màn hình giá trị lớn nhất và giá trị nhỏ nhất của A
b)Sắp xếp và đưa ra màn hình dãy A theo thứ tự không tăng
c)Sắp xếp và đưa ra màn hình dãy A theo thứ tự không giảm
giúp mình với nha tại bài này là bài thi áaaa
