viết chương trình tính tích 50 số nguyên đầu tiên
giúp mình với ạ mình đang cần gấp
Những câu hỏi liên quan
Viết chương trình tính tổng sau:S 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phímgiúp mình với ạ, mình đang cần gấp
Đọc tiếp
Viết chương trình tính tổng sau:
S = 1 + 1.2 + 1.2.3 + 1.2.3.4 + …+ 1.2…N Với N là số nguyên nhập vào từ bàn phím
giúp mình với ạ, mình đang cần gấp
program TinhTong;
uses crt;
var
N, i, j, tich: integer;
S: real;
begin
clrscr;
write('Nhap so nguyen N: ');
readln(N);
S := 0;
tich := 1;
for i := 1 to N do
begin
tich := tich * i;
S := S + tich;
end;
writeln('Tong S = ', S:0:2);
readln;
end.
Đúng 1
Bình luận (4)
Viết chương trình nhập vào n số nguyên in ra màn hình tổng các số đó (giúp mình với ạ mình đang cần gấ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 t:=t+a[i];
write('Tong la; ',t);
readln
end.
Đúng 2
Bình luận (0)
viết chương trình tính tổng các số lẻ từ 25-50 chia hết cho 5
( giúp mình với mình cần gấp lắm ạ)
Program HOC24;
var i: byte;
t: integer;
begin
t:=0;
for i:=25 to 50 do if (i mod 5=0) and (i mod 2=1) then t:=t+i;
write('Tong la: ',t);
readln
end.
Đúng 4
Bình luận (0)
Mọi người giúp mình câu này với ạ, mình đang cần gấp: Viết chương trình nhập vào 1 ma trận số nguyên kích thước m x m ô. Tính tổng các phần tử trên đường chéo chính.
uses crt;
var i,j,m:integer;
t:longint;
a:array[1..100,1..100]of integer;
begin
clrscr;
write('nhap m:');readln(m);
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');readln(a[i,j]);
end;
clrscr;
writeln('ma tran da nhap la:');
for i:=1 to m do
begin
for j:=1 to m do
write(a[i,j]:5);writeln;
end;
i:=1;j:=1;
while i<=m do
begin
t:=t+a[i,j];
inc(i);inc(j);
end;
writeln('tong cac phan tu nam tren duong cheo chinh la: ',t);
readln;
end.
Đúng 4
Bình luận (0)
15 tháng 3 2021 lúc 10:25
Câu hỏi: Viết chương trình tính n!
_______________________________________
Mọi người giúp mình với, mình đang cần gấp ạ!
Program HOC24;
var t: longint;
n,i: integer;
begin
write('Nhap n= '); readln(n);
t:=1;
for i:=1 to n do t:=t*i;
write(n,'! =',t);
readln
end.
Đúng 2
Bình luận (0)
Hãy viết thuật toán và chương trình tính chu vi và diện tích của 1 hình vuông có cạnh a.
Mọi người giúp mình giải bài này với ạ, mình đang cần gấp, cảm ơn ạ!
#include <bits/stdc++.h>
using namespace std;
double a,cv,dt;
int main()
{
cin>>a;
cv=a*4;
dt=a*a;
cout<<fixed<<setprecision(2)<<cv<<endl;
cout<<fixed<<setprecision(2)<<dt;
return 0;
}
Đúng 0
Bình luận (0)
giúp mình với ạ!! ( mình hiện đang học ngôn ngữ lập trình Python)
viết chương trình tính diện tích hình tròn khi biết bán kính, chương trình có sử dụng biến r được gán giá trị ban đầu là?
MÌNH XIN ĐƯỢC CẢM ƠN Ạ!!!
program hinhtron;
var r:real;
const pi=3.14;
begin
clrscr;
Write('Nhapbankinh:');readln(r);
Writeln('Dientichhinhtronla:',pi*r*r);
readln
end.
Đúng 0
Bình luận (0)
1/viết chương trình nhập dãy số gồm 10 số nguyên dương.In ra màn hình số bé nhất (Min)
2/viết chương trình nhập dãy số gồm n số nguyên.
a. Tính tổng các phần tử của dãy.
b. In ra màn hình các phần tử là số chẵn hoặc lẻ.
[Giúp mình với mình đang cần gấp mai là mình thì rồi. Cảm ơn mn trước ạ]
1:
#include <bits/stdc++.h>
using namespace std;
long long n=10, a[10],i,nn;
int main()
{
for (i=1; i<=n; i++) cin>>a[i];
nn=a[1];
for (i=2; i<=n; i++) nn=min(nn,a[i]);
cout<<nn;
return 0;
}
Đúng 0
Bình luận (0)
viết chương trình tính diện tích, chu vi hình tam giác (với a, h nhập từ bàn phím)
Mình cần gấp ạ!
Có tính chu vi tg từ a vs h à?
Var a,h:real;
begin
Writeln('nhap do dai duong cao: '); Readln(h);
Writeln('nhap do dai canh day: '); readln(a);
Writeln('dien tich tam giac: S= ', (a*h)/2);
end.
Đúng 0
Bình luận (0)