Viết chương trình tìm số N nhỏ nhất sao cho tổng S>10000
S=1+2+3+ ... +N
In ra kết quả của S và N tìm được.
VIẾT CHƯƠNG TRÌNH TÍNH TỔNG S = 1+2+3+....N SAO CHO TỔNG S NHỎ NHẤT > 700 KHI CHẠY CHƯƠNG TRÌNH SẼ CHO KẾT QUẢ NHƯ SAU: S NHỎ NHẤT ĐỂ TỔNG > 700 LÀ= 38 S ĐẦU TIÊN LỚN HƠN 700 LÀ = 703
Uses crt;
var
begin clrscr;
k:=1;
s:=0;
while (s<700) do begin
k:=k+1
s:=s+k;
end;
writeln(s,' ',k);
readln;
end;
viết chương trình với thuật toán sau:
Bước 1. S←0,n←0
Bước 2. Nếu S ≤ 1000 thi chuyển tới bước 3; ngược lại ( S>1000) chuyển tới bước 4 Bước 3. n←n+1; S←S+n; và quay lại bước 2
Bước 4. In kết quả: S và n là số tự nhiên nhỏ nhất sao cho S > 1000. Kết thúc thuật toán.
uses crt;
var n,s:integer;
begin
clrscr;
s:=0;
n:=0;
while s<=1000 do
begin
n:=n+1;
s:=s+n;
end;
writeln(s);
writeln(n);
readln;
end.
Bài 1: viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử nhỏ nhất của dãy số.
Bài 2:viết chương trình nhập dãy số nguyên A gồm N phần tử. Với N được nhập từ bàn phím. Tìm và in kết quả ra màn hình phân tử lớn nhất của dãy số
Bài 1:
uses crt;
var a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
min:=a[1];
for i:=1 to n do
if min>a[i] then min:=a[i];
writeln(min);
readln;
end.
Bài 2:
uses crt;
var a:array[1..100]of integer;
i,n,max:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
max:=a[1];
for i:=1 to n do
if max<a[i] then max:=a[i];
writeln(max);
readln;
end.
Câu 1: Viết chương trình nhập n phần tử mảng 1 chiều là các số nguyên từ bàn phím, ghi mảng vừa nhập vào tệp MANG1CHIEU.TXT. Tìm giá trị nhỏ nhất trong mảng và đưa kết quả ra màn hình
Câu 2: Viết chương trình nhập 1 xâu bất kỳ từ bàn phím, In ra xâu sau khi đã loại bỏ các kí tự là chữ cái và ghi vào tệp CHUSO.TXT
giúp em với ạ . em cảm ơn nhiều...
cau 1:
uses crt;
var a:array[1..100] of integer;
n,i,min: integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
min:=a[1];
for i:=2 to n do
if min>a[i] then min=a[i];
writeln(a[i]);
readln;
end.
cau 2:
uses crt;
g:text;
s:string;
const fo='CHUSO.TXT'
begin
assign(g,fo);
rewrite(g);
readln(s);
for i:=1 to length(s) do
if not((s[i] in ['a'..'z'])and(s[i] in ['A'..'Z])) then delete(s,i,1);
writeln(g,s);
end.
Viết chương trình tính tổng sau: S=1+2+3+...+n. Sao cho tổng S nhỏ nhất >500 (với n là số nguyên được nhập vào từ bàn phím).
1Viết chương trình nhập vào số nguyên dương N. Tính tổng các số là bội 3 và 5. In kết quả ra màn hình. 2. Viết chương trình tính tổng S=1+13+15+1N+...+ cho đến khi 1N
Bài 1:
#include <bits/stdc++.h>
using namespace std;
long long i,n,x,t;
int main()
{
cin>>n;
t=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%15==0) t=t+x;
}
cout<<t;
return 0;
}
Tính tổng S biết S(n) = 1^2 + 2^2 +3^2 +4^2+… + k^2 sao cho tất cả các giá trị từ 1^2 đến k^2 phải nhỏ hơn hoặc bằng n
1. viết chương trình cho người dùng nhập n . In ra tổng của S
2.trình bày ra giấy tính độ phức tạp của chương trình vừa thực hiện
Mn làm giúp mình với ạ . Càng sớm càng tốt :((
1:
#include <bits/stdc++.h>
using namespace std;
long long n,i,s;
int main()
{
cin>>n;
s=0;
for (i=1; i<=n; i++)
s=s+i*i;
cout<<s;
return 0;
}
1. Viết chương trình tính tổng sau:
a) S = \(1+\dfrac{1}{2}+\dfrac{1}{3}+...+\dfrac{1}{n}\)
b) S = \(1+\dfrac{1}{3}+\dfrac{1}{5}+...+\dfrac{1}{n}\)
2. Viết chương trình nhập 2 số nguyên a và b. Tìm bội chung nhỏ nhất
3. Cho một dãy số gồm N phân tử:
- Tính tổng các phân tử trong dãy số
- Tìm phân tử lớn nhất
- In ra màn hình các số nguyên tố có trong dãy
BÀI 3
uses crt;
var a: array[1..100] of integer;
i,n,max,s,j: integer;
begin
clrscr;
writeln(' nhap so phan tu cua day'); readln(n);
for i:=1 to n do
begin
writeln('a[',i,']'); readln(a[i]);
end;
max:=a[1];
s:=0;
for i:=1 to n do
begin
if max<a[i] then max:=a[i];
s:=s+a[i];
end;
writeln('so lon nhat trong day tren la:',max);
writeln('tong bang:',s);
writeln('so nguyen to trong mang la:');
j:=1;
for i:=1 to n do
if a[i]>1 then
begin
repeat
inc(j);
until (a[i] mod j=0);
if j>(a[i] div 2) then writeln(a[i]);
j:=1;
end;
readln
end.
viết chương trình sử dụng while do để tìm in ra n(n là số tự nhiên) s=1,2,3....n n là số lớn nhất và nhỏ hơn 50
tham khảo
Program HOC24;
var n: byte;
begin
n:=0;
while n<50-1 do n:=n+1;
write('N=',N);
readln
end.