Nhập vào số n
In ra các số lẻ từ 1 đến n. cứu mình pascal với ạ
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
uses crt;
var n,i,dem,dem1:integer;
begin
clrscr;
write('nhap n='); readln(n);
dem:=0;
dem1:=0;
for i:=1 to n do
begin
if i mod 2=0 then inc(dem);
if i mod 2=1 then inc(dem1);
end;
writeln('so luong so chan trong day so tu 1 toi ',n,' la: ',dem);
writeln('so luong so le trong day so tu 1 toi ',n,' la: ',dem1);
readln;
end.
var n,i:longint;
begin
readln(n);
if n mod 2=0 then write('chan: ',n div 2,' le: ',n div 2) else
write('chan: ',n div 2,' le: ',n div 2+1) ;
end.
viết công thức pascal nhập số n từ bàn phím, thực hiện xuất ra màn hình: +các số nguyên tố từ 2 đến n
+các số chính phương từ 0 đến n
+các số hoàn hảo từ 1 đến n
Làm giúp mình với!!!
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');
for i:=0 to n do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
writeln;
writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
tính tổng các bội số của x trong khoảng từ a đến b, với a b là các số nguyên được nhập vào từ bàn phím.
pascal ạ, giúp mình với nhé
uses crt;
var a,b,x,t,i:integer;
begin
clrscr;
readln(a,b,x);
t:=0;
for i:=a to b do
if i mod x=0 then t:=t+i;
writeln(t);
readln;
end.
Viết chương trình nhập vào một số nguyên dương n hữu hạn bất kỳ hiển thị ra màn hình các số lẻ trong đoạn từ 1 đến n. Giải giúp em với ạ!
program vdd;
uses crt;
var i,n: integer;
begin
clrscr;
write('Nhap N: '); readln(n);
for i:=1 to n do if i mod 2=1 then write(i,'');
readln
end.
Bài 1: Viết chương trình Pascal nhập số từ bàn phím. Xuất ra màn hình:
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
Bài 2: Viết chương trình 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ừ 2 đến n
+ Dòng 3: Nếu n là chẵn thì xuất ra màn hình các số hoàn hảo từ 1 đến n
+ Dòng 4: Tổng các ước của n
( 2 bài khác nhau mọi người làm riêng ra giúp mình ạaaaaaa)
1. Viết chương trình nhập vào 1 số tự nhiên P. Tính và in ra màn hình các số lẻ và tổng các số lẻ từ 1 đến P. 2.Viết chương trình nhập vào 1 số tự nhiên N. Tính và in ra màn hình các số chẵn và tổng các số chẵn từ 1 đến N. 3. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là ước của N. 4. Viết chương trình nhập vào 1 số tự nhiên N. Tính tổng các số là bội của 3 mà nhỏ hơn hoặc bằng N.
Câu 1:
Program HOC24;
var i,p: integer;
t: longint;
begin
write('Nhap P: '); readln(p);
t:=0;
for i:=1 to p do if i mod 2<>0 then t:=t+i;
write('Tong cac so le la: ',t);
readln
end.
Câu 2:
Program HOC24;
var i,n: integer;
t: longint;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
write('Tong cac so chan la: ',t);
readln
end.
Câu 3:
Program HOC24;
var i,t,n: integer;
begin
write('Nhap N: '); readln(n);
t:=0;
for i:=1 to n do if n mod i=0 then t:=t+i;
write('Tong cac uoc cua ',n,' la: ',t);
readln
end.
Viết chương trình Pascal để nhập vào một số tự nhiên n. In lên màn hình tổng các số chẵn từ 1 đến n. Mn giúp mình với!
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
program chan;
uses crt;
var i,n:integer;
begin
clrscr;
write('nhap n:');readln(n);
for i:=1 to n do
if i mod 2=0 then write('cac so chan tu 1 den n la:');
readln
end.
uses crt;
var i,n:integer;
begin
clrscr;
write('n='); readln(n);
writeln('cac so chan trong khoang tu 1 toi ',n,' la:');
for i:=1 to n do
if i mod 2=0 then write(i:4);
readln;
end.
nha bạn
|~ Hok tốt ~|
a)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=0 then
begin
for i:=0 to n do
if i mod 2=0 then write(i:4);
end
else writeln(n,' khong la so chan');
readln;
end.
b)
uses crt;
var i,n:integer;
begin
clrscr;
repeat
write('Nhap n='); readln(n);
until n<100;
if n mod 2=1 then
begin
for i:=1 to n do
if i mod 2=1 then write(i:4);
end
else writeln(n,' khong la so le');
readln;
end.
Viết chương trình nhập vào 2 số nguyên dương m, n (m<n), tính T1 là tích tất cả các số trong phạm vi từ 1 đến n và T2 là tích các số lẻ trong phạm vi từ m đến n và đưa kết quả ra màn hình.
giúp em bài này với ạ, em cám ơn ạ <3
Program HOC24;
var m,n,i: integer;
t1,t2: longint;
begin
write('Nhap m;n: '); readln(m,n);
t1:=1; t2:=1;
for i:=1 to n do t1:=t1*i;
for i:=m to n do t2:=t2*i;
writeln('T1=',t1);
write('T2=',t2);
readln
end.
1. Viết chương trình Pascal tính tổng các số chia hết cho 3 từ 1 đến 100 Kết quả tổng này là số chẵn hay lẻ? 2. Viết chương trình Pascal nhập vào 1 mảng số nguyên A gồm có N số (N< 100). Có bao nhiêu số chẵn trong mảng A.
Bài 2:
uses crt;
var x,i,n,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then inc(dem);
end;
writeln(dem);
readln;
end.