viết chương trình tính biểu thức: S= 1+2+3+...+100 . cảm ơn mn
viết chương trình tính biểu thức
A= 1+1/2+1/3+...+1/100
https://hoc247.net/hoi-dap/toan-6/tinh-1-1-2-1-3-1-4-1-100-faq172796.html
viết chương trình nhập n từ bàn phím .TÍnh tổng biểu thức sau S=1^2+2^2+3^2+...+N^2
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=0;
for i:=1 to n do
s:=s+i*i;
writeln(s);
readln;
end.
Viết chương trình tính biểu thức sau :
a) S=1+2+3+...+n với (n từ 30-90)
b) Tìm n để S >1000 với S = 1+2+3+...n
a)
program Tinh_S;
var
n, S: integer;
i: integer;
begin
write('Nhap gia tri cua n (30 <= n <= 90): ');
readln(n);
S := 0;
if (n >= 30) and (n <= 90) then
begin
for i := 1 to n do
S := S + i;
writeln('Gia tri cua bieu thuc S la: ', S);
end
else
writeln('Gia tri cua n khong hop le!');
readln;
end.
b)
program Tim_n;
var
n, S: integer;
begin
for n := 30 to 90 do
begin
S := 0;
for i := 1 to n do
S := S + i;
if S > 1000 then
begin
writeln('Gia tri cua n la: ', n);
break;
end;
end;
readln;
end.
a)program Tinh_S;
var n,s,i:longint;
begin
s := 0;
write('Nhap n (30 <= n <= 90): ');
readln(n);
for i := 1 to n do
begin
s := s + i;
end;
writeln('Tong S la: ', s);
end.
b) program Tim_N;
var n,s,i: longint;
begin
s := 0;
n := 1;
while s <= 1000 do
begin
s := s + n;
n := n + 1;
end;
writeln('Gia tri n can tim la: ', n-1);
end.
viết chương trình nhập từ bàn phím 2 số nguyên a và b. tính và viết ra màn hình kết quả biểu thức c = \(\dfrac{1}{\left(a+b\right)}\)
giúp e với ạ e đg cần rất gấp ạ e cảm ơn mng nhiều
#include <bits/stdc++.h>
using namespace std;
long long a,b;
int main()
{
cin>>a>>b;
cout<<fixed<<setprecision(2)<<1/(a*1.0+b*1.0);
return 0;
}
Viết chương trình nhập vào số tự nhiên N (N≤100) và tính giá trị của biểu thức sau:
A= 1 + 1/2 - 1/3 + 1/4 -1/5....+1/N
#include <bits/stdc++.h>
using namespace std;
int n,i;
double s;
int main()
{
cin>>n;
s=1;
for (i=2; i<=n; i++)
{
if (i%2==0) s=s+1/(i*1.0);
else s=s-1/(i*1.0);
}
cout<<fixed<<setprecison(2)<<s;
return 0;
}
cứu mình ạ, cảm ơn mn nhiều viết phương trình nhập vào một mảng số nguyên x từ bàn phím. đưa ra thông tin báo tính giá trị của biểu thức : ( x-1) mũ 3
Hãy viết chương trình đưa ra bảng tính số từ 1 đến 90, 9 hàng, 10 cột .
Mong mn giúp đỡ! Cảm ơn nhiều.
uses crt;
var a:array[1..9,1..10] of integer;
m,n,j,i:longint;
begin
clrscr;
for i:=1 to 9 do
for j:=1 to 10 do
begin
inc(m);
a[i,j]:=m;
end;
writeln('mang vua nhap: ');
for i:=1 to 9 do
begin
for j:=1 to 10 do
write(a[i,j]:4);
writeln;
end;
readln;
end.
Mk đã giải đc r nên mk đăng lên cho bn nào cần nè.
viết chương trình máy tính nhập 10 số tự nhiên bất kì và in lên màn hình bằng chương trình pascal
(đơn giản thôi nhé mn :''> )
cảm ơn ạ !
var i, so: integer;
begin
writeln('Nhap vao 10 so tu nhien:');
for i := 1 to 10 do
begin
write('So thu ', i, ': ');
readln(so);
writeln('So vua nhap la: ', so);
end;
readln;
end.
Viết chương trình tính tích S=1×2×3×4×5...×100
Program HOC24;
var i: byte;
s: longint;
begin
s:=1;
for i:=1 to 100 do s:=s*i;
write('S = ',s);
readln
end.
var i:integer;
s: longint;
begin
s:=1;
for i:=2 to 100 do s:=s*i;
write('S = ',s);
readln
end.
var
s:longint;
begin
clrscr;
s:=1;
for i:=1 to 100 do s:=s*i;
readln;
end.