Viết chương trình tính va xuất ra TBC từ 1 - N ( N là số nhập từ bàn phím).
Những câu hỏi liên quan
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 nxBà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)
Đọc tiếp
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)
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
uses crt;
var n,x,i,lt,gt:int64;
begin
clrscr;
readln(n);
gt:=1;
for i:=1 to n do gt:=gt*i;
writeln(gt);
readln(x);
lt:=1;
for i:=1 to x do
lt:=lt*n;
writeln(lt);
readln;
end.
Đúng 0
Bình luận (0)
1.viết chương trình nhập vào mảng A gồm N phần tử (N 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 72.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ sốmn giúp em giải với ạ
Đọc tiếp
1.viết chương trình nhập vào mảng A gồm N phần tử (N<= 500) từ bàn phím. Sau đó, tính tổng các phần tử âm chia hết cho cho 7
2.viết chương trình nhập vào mảng C gồm 10 phần tử từ bàn phím. Sau đó xuất ra các phần tử là số nguyên tố
3.viết chương trình tạo nhập vào mảng D gồm K phần tử (K<= 200) từ bàn phím. Sau đó cho biết có bao nhiêu phần tử chẵn có 2 chữ số
mn giúp em giải với ạ
Câu 1:
uses crt;
var a:array[1..500]of integer;
i,n,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
for i:=1 to n do
if (a[i]<0) and (a[i] mod 7=0) then t:=t+a[i];
writeln('Tong cac so am chia het cho 7 la: ',t);
readln;
end.
Câu 2:
uses crt;
var c,a:array[1..10]of integer;
i,kt,j,dem:integer;
begin
clrscr;
for i:=1 to 10 do
begin
write('C[',i,']='); readln(c[i]);
end;
dem:=0;
for i:=1 to 10 do
if c[i]>1 then
begin
kt:=0;
for j:=2 to c[i]-1 do
if c[i] mod j=0 then kt:=1;
if kt=0 then
begin
inc(dem);
a[dem]:=c[i];
end;
end;
if dem=0 then writeln('Trong day khong co so nguyen to')
else begin
writeln('Cac so nguyen to trong day la: ');
for i:=1 to dem do
write(a[i]:4);
end;
readln;
end.
Câu 3:
uses crt;
var d:array[1..200]of integer;
i,k,dem:integer;
begin
clrscr;
write('Nhap k='); readln(k);
for i:=1 to k do
begin
write('D[',i,']='); readln(d[i]);
end;
dem:=0;
for i:=1 to k do
if (a[i] mod 2=0) and (a[i]>=10) then inc(dem);
writeln('So phan tu chan co 2 chu so la: ',dem);
readln;
end.
Đúng 1
Bình luận (0)
1. Viết chương trình tính tích N1*2*3*...*n (với n được nhập từ bàn phím) 2. Viết chương trình tính tổng A1/1*3+1/2*4+1/3*5+...+1/n*(n+2) 3. Viết chương trình tính tổng số lẻ có trong dãy từ 0-n (n được nhập từ bàn phím) 4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0-n (n được nhập từ bàn phím) và đếm có bao nhiêu số. 6. Viết chương trình nhập số nguyên n. Tìm...
Đọc tiếp
1. Viết chương trình tính tích N=1*2*3*...*n (với n được nhập từ bàn phím)
2. Viết chương trình tính tổng A=1/1*3+1/2*4+1/3*5+...+1/n*(n+2)
3. Viết chương trình tính tổng số lẻ có trong dãy từ 0->n (n được nhập từ bàn phím)
4. Viết chương trình in ra màn hình các số chẵn có trong dãy từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
5. Viết chương trình in ra màn hình các số lẻ có trong dãy số từ 0->n (n được nhập từ bàn phím) và đếm có bao nhiêu số.
6. Viết chương trình nhập số nguyên n. Tìm và đưa ra màn hình các ước của n.
7. Viết chương trình in ra màn hình các bội của n ( n được nhập từ bàn phím)
8. Viết chương trình tính tổng S=1/1+1/2+1/3+...+1/n (n được nhập từ bàn phím)
Câu 6:
uses crt;
var n,i:integer;
begin
clrscr;
readln(n);
for i:=1 to n do
if n mod i=0 then write(i:4);
readln;
end.
5:
uses crt;
var n,i,dem:integer;
begin
clrscr;
readln(n);
dem:=0;
for i:=0 to n do
if i mod 2=1 then
begin
write(i:4);
dem:=dem+1;
end;
writeln;
writeln(dem);
readln;
end.
Đúng 2
Bình luận (0)
1 Viết chương trình tính n!=1.2.3.4....n vs n là số nguyên được nhập vào từ bàn phím.
2 Viết chương trình tính t=1+2+3+4+....+n vs n là số nguyên được nhập vào từ bàn phím.
Câu 1:
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
for i:=1 to n do
s:=s*i;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var t,i,n:integer;
begin
clrscr;
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
t:=t+i;
writeln(t);
readln;
end.
Đúng 0
Bình luận (0)
Câu 1. Viết chương trình tính tổng các số lẻ từ 1 đến n ( n nhập từ bàn phím).
Câu 2. Viết chương trình tính tổng các số chẵn từ 1 đến n ( n nhập từ bàn phím).
help me, pls
Câu 1:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 <> 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Đúng 0
Bình luận (0)
Câu 2:
uses crt;
var s,i,n:integer;
begin clrscr;
s:=0;
write('Nhap n: ');readln(n);
for i:=1 to n do
if i mod 2 = 0 then inc(s,i);
write('Tong cac so le tu 1 den ',n,' la: ',s);
readln
end.
Đúng 0
Bình luận (0)
1/ viết chương trình tính tổng bình phương s= 1² +2²+3²+... + n² với n là số nguyên dương được nhập từ bàn phím 2/ viết chương trình tính tổng của n số lẻ đầu tiên với n là số nguyên dương được nhập từ bàn phím
1:
uses crt;
var n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
t:=t+i*i;
write(t);
readln;
end.
Đúng 1
Bình luận (0)
2
program bt2;
var i,n,t:integer;
begin
readln(n);
s:=0;
for i:=1 to n do
if i mod 2 = 1 then s:=s+i;
readln;
end.
Đúng 0
Bình luận (0)
viết chương trình nhập vào bàn phím số n và tính tổng các số chẵn từ 1 đến n rồi xuất tổng vừa tìm được ra màn hình
Xem chi tiết
Câu 1 : viết chương trình tính tổng các số chẵn với n được nhập từ bàn phím ?
Câu 2 : viết chương trình tính tổng các số lẻ với n được nhập từ bàn phím ?
Câu 1:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 2 to n do
begin
if i mod 2 = 0 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so chan tu 2 toi ', n, ' la ', sum);
readln;
end.
Câu 2:
program Tinhtong:
var
n, i, sum: integer;
begin
write('Nhap n: ');
readln(n);
sum := 0;
for i := 1 to n do
begin
if i mod 2 = 1 then
begin
sum := sum + i;
end;
end;
writeln('Tong cac so le tu 1 toi ', n, ' la ', sum);
readln;
end.
Đúng 2
Bình luận (1)