Viết chương trình tính tích n.1.3.5.7. ... .n, n là số tự nhiên nhập từ bàn phím( Dùng While... do)
Mik rất rất cần gấp!!!
Thanks a lot :)
Những câu hỏi liên quan
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
program TinhTongTich;
var
N, i, Tong, Tich:integer;
begin
writeln('Nhap so nguyen duong N:');
readln(N);
i:=1;
Tong:=0;
Tich:=1;
while i<=N do
begin
Tong:=Tong+i;
Tich:=Tich*i;
i:=i+1;
end;
writeln('Tong cac so tu 1 den ', N, ' la: ', Tong);
writeln('Tich cac so tu 1 den ', N, ' la: ', Tich);
readln;
end.
Đúng 0
Bình luận (0)
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Đọc tiếp
Hãy viết chương trình tính tổng, tích của các số tự nhiên từ 1àN (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Viết chương trình tính tổng của n số tự nhiên bất kì được nhập từ bàn phím bằng lệnh while do với n là số nguyên được nhập từ bàn phím
program TongN;
var
n, i, tong: integer;
begin
tong := 0;
writeln('Nhap so nguyen duong N: ');
readln(n);
i := 0;
while i < n do
begin
i := i + 1;
tong := tong + i;
end;
writeln('Tong cac so tu 1 den ', n, ' la ', tong);
readln;
end.
Đúng 0
Bình luận (0)
Viết chương trình tính tích n số tự nhiên được nhập từ bàn phím (Sử dụng câu lệnh while... do)
Var i,n,p:longint;
Begin
Write('Nhap n = ');readln(n);
i:=1;
p:=1;
While i<=n do
Begin
i:=i+1;
p:=p*i;
End;
Write('Tich la ',p);
Readln;
End.
Đúng 0
Bình luận (0)
viết chương trình tính tích của n số tự nhiên đầu tiên,với N số tự nhiên được nhập từ bàn phím(sử dụng câu lệnh While..Do
uses crt;
var i,n:integer;
s:real;
begin
clrscr;
write('Nhap n='); readln(n);
s:=1;
i:=1;
while i<=n do
begin
s:=s*i;
i:=i+1;
end;
writeln(s:0:0);
readln;
end.
Đúng 0
Bình luận (1)
Hãy viết chương trình tính tổng tích, của các số tự nhiên từ 1 đến N (n được nhập từ bàn phím) bằng cách dùng câu lệnh For...do hoặc While...do?
Giúp em với còn 1 câu này nữa là em xong bài rồi
Viết chương trình tính tổng chẵn (lẻ) n số tự nhiên nhập từ bàn phím (dùng vòng lặp) Giúp vs ạ em cần gấp
Số chẵn:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 0 then S:=S+i
Write(S);
Readln
End.
Số lẻ:
Var i,n,S: longint;
Begin
Readln(n);
For i:=1 to n do
If i mod 2 = 1 then S:=S+i
Write(S);
Readln
End.
Đúng 1
Bình luận (2)
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,t1,t2;
int main()
{
cin>>n;
t1=0;
t2=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) t1+=x;
else t2+=x;
}
cout<<t1<<" "<<t2;
return 0;
}
Đúng 0
Bình luận (0)
19 tháng 5 2022 lúc 22:42
Viết chương trình tính tổng các số chẵn từ 1 đến n với n được nhập từ bàn phím (viết cho câu lệnh while...do). Mik đang cần gấppp
tham khảo
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
Đúng 2
Bình luận (2)
https://hoc24.vn/cau-hoi/viet-chuong-trinh-tinh-tong-cac-so-chan-tu-1-toi-n-voi-n-duoc-nhap-tu-ban-phim-bang-vong-lap-whiledo.4935914584802
Đúng 1
Bình luận (2)
Var i,n,s:integer;
Begin
Write('Nhap n = ');readln(n);
i:=0;
While i <= n do
Begin
If i mod 2 = 0 then s:=s+i;
i:=i+1;
End;
Write('Tong la ',s);
Readln;
End.
Đúng 0
Bình luận (1)
15 tháng 12 2022 lúc 18:39
Viết chương trình tính tích của N số tự nhiên đầu tiên. Với N là số tự nhiên đc nhập từ bàn phím
Xem chi tiết
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
t=1;
for (int i=1; i<=n; i++) t=t*i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)