Viết chương trình tính tổng dãy số nhập từ bàn phím sao cho không vượt qua 200
Những câu hỏi liên quan
1. Hãy nhập từ bàn phím 1 dãy số nguyên không âm. Hãy viết chương trình in ra màn hình chỉ số i nhỏ nhất sao chi tổng các phần tư từ 1 đến i lớn hơn 100
2. Hãy viết chương trình pascal để thực hiện các nhiệm vụ sau đây:
- Nhập vào từ bàn phím 1 dãy số không quá 30 số nguyên
- Kiểm tra rồi cho biết dãy số vừa nhập có phải là dãy số không giảm hay không
1. uses crt;
var a,vt:array[1..100]of integer;
n,i,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
repeat
write('A[',i,']='); readln(a[i]);
until a[i]>=0;
end;
t:=0;
for i:=1 to n do
begin
if t<100 then
begin
t:=t+a[i];
dem:=dem+1;
vt[dem]:=i;
end;
end;
writeln(vt[dem]);
readln;
end.
Đúng 1
Bình luận (0)
Câu 2:
uses crt;
var a:array[1..30]of integer;
i,n,kt:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
kt:=0;
for i:=1 to n-1 do
if a[i]>=a[j] then kt:=1;
if kt=0 then writeln('Day la day so khong giam')
else writeln('Day khong la day so khong giam');
readln;
end.
Đúng 2
Bình luận (0)
Cho dãy A gồm N số nguyên (N nhỏ hơn hoặc bằng 200) số nguyên A1,A2,...An. Hãy viết chương trình nhập mảng A vào từ bàn phím và đưa ra màn hình tổng các phần tử chia hết cho 5.
Bài 2: Viết chương trình nhập 1 xâu vào từ bàn phím và đưa ra màn hình xâu không chứa dấu cách. 
Bài 1:
uses crt;
var a:array[1..200]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] mod 5=0 then t:=t+a[i];
writeln('Tong cac so chia het cho 5 la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Bài 2:
uses crt;
var st:string;
d,i:integer;
begin
clrscr;
write('Nhap xau:'); readln(st);
d:=length(st);
for i:=1 to d do
if st[i]=#32 then delete(st,i,1);
writeln(st);
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)
Viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số. Độ dài của dãy cũng được nhập từ bàn phím; tính tổng các phần tử
uses crt;
var a:array[1..100]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
t:=t+a[i];
writeln(t);
readln;
end.
Đúng 0
Bình luận (1)
viết chương trình nhập n từ bàn phím(n<=200) và dãy số a1,a2..an từ bàn phím, ghi vào tệp B.TXT mỗi số trên 1 dòng
uses crt;
const fo='b.txt'
var f1:text;
a:array[1..200]of integer;
i,n:integer;
begin
clrscr;
assign(f1,fo); rewrite(f2);
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
for i:=1 to n do
write(f1,a[i]:4);
close(f1);
readln;
end.
Đúng 2
Bình luận (0)
program cap_so_cong;
uses crt; var a: array[1..100] of integer; i, n, k: integer;
{i la bien dem, k de luu cap so} begin clrscr; write('N= ');
readln(n); for i:=1 to n do begin write('A(',i,')= ');
readln(a[i]);
end;
{Bat dau phan kiem tra} k:=a[2]-a[1]; i:=2; repeat i:= i+1; until (a[i]<>a[i-1]+k) or (i>n);
if i>n then write('Day A la mot cap so cong') else
write('Day A khong phai la mot cap so cong');
readln
end.
Đúng 1
Bình luận (0)
viết chương trình nhập vào 1 dãy gồm n số(n được nhập vào từ bàn phím) tính tổng các số chẵn có trong dãy số vừa nhập
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
begin
write('Nhap n: '); readln(n);
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
t:=0;
for i:=1 to n do if a[i] mod 2=0 then t:=t+a[i];
write('Tong cac so chan la: ',t);
readln
end.
Đúng 1
Bình luận (0)
14 tháng 5 2021 lúc 15:21
Câu 2: (5 điểm)
a) Hãy mô tả thuật toán chương trình nhập n số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím
b)Viết chương trình nhập dãy số nguyên từ bàn phím. Đếm xem có bao nhiêu số chẵn và tính tổng của các số chẵn. Biết N cũng được nhập từ bàn phím.
Câu 2:
a) Mô tả thuật toán
-Bước 1: Nhập n và nhập dãy số
-Bước 2: dem←0; i←1; t←0;
-Bước 3: Nếu a[i] mod 2=0 thì dem←dem+1 và t←t+a[i];
-Bước 4: i←i+1;
-Bước 5: Nếu i<=n thì quay lại bước 3
-Bước 6: Xuất t và dem
-Bước 7: Kết thúc
Đúng 2
Bình luận (0)
Câu 2:
b) uses crt;
var a:array[1..100]of integer;
i,n,t,dem:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t:=0;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
t:=t+a[i];
inc(dem);
end;
writeln('So so chan la: ',dem);
writeln('Tong cac so chan la: ',t);
readln;
end.
Đúng 1
Bình luận (0)
Viết chương trình tính tổng các số chẵn dãy n số nguyên với n được nhập từ bàn phím
Refer
uses crt;
var i,n,m:longint;
a:array[1..1000]of integer;
begin
write('nhap do dai cua day so:');readln(n);
m:=0;
for i:=1 to n do begin
write('nhap phan tu thu ',i,' cua mang:');readln(a[i]);
m:=m+a[i];
end;
write(' tong cua day so la:',m);
readln
end.
Đúng 2
Bình luận (4)
#include <bits/stdc++.h>
using namespace std;
long long a[1000],n,i,t;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
t=0;
for (i=1; i<=n; i++)
if (a[i]%2==0) t+=a[i];
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
Viết chương trình để tính tổng của N số (N nhập từ bàn phím) trong dãy số sau 1,2,3,5,8,...