Nhập số nguyên n. Tính n! và ghi kết quả vào tệp.
Những câu hỏi liên quan
Viết chương trình nhập vào 1 dãy số nguyên n phần tử .tìm phần tử nhỏ nhất của dãy số nguyên và ghi kết quả vào tệp ketqua.out
uses crt;
const fi='ketqua.out'
var f1:text;
a:array[1..100]of integer;
i,n,min:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap 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(f1,min);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Nhập số nguyên dương N(N<=100).viết chương trình tính tổng các số chia hết cho 5 trong phạm vi của N và lưu hay ghi trong tệp 'tong5.Txt' sao cho dòng đầu ghi số nguyên N dòng 2 ghi kết quả vừa tính đc
a)
PROGRAM BAI1a;
VAR N, Tle, Tchan: integer;
BEGIN
Write ('Nhap N =');
Readln (N);
If (N mod 2) = 0 Then
Tle := N*((N - 2)/2 + 1)/2;
Tchan := (N + 2)*((N - 2)/2 + 1)/2;
If (N mod 2) = 1 Then
Tle := (N + 1)*((N-1)/2 +1)/2;
Tchan := (N + 1)*((N - 3)/2 + 1)/2;
WRITELN ('Sle =', Sle, 'Schan =', Schan);
READLN;
END.
Đúng 2
Bình luận (3)
uses crt;
const fi='tong5.txt'
var f1:text;
n,i,t:integer;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap n='); readln(n);
t:=0;
for i:=1 to n do
if i mod 5=0 then t:=t+i;
writeln(f1,t);
close(f1);
readln;
end.
Đúng 1
Bình luận (0)
trong tệp TONG.INP cho duy nhất số nguyên N (0N1000000). Hãy viết chương trình bằng ngôn ngữ lập trìnhC++ tính tổng của các chữ số của N và ghi vào tệp TONG.CPP số nguyên duy nhất là kết quả của phép tính trên.cho ví dụ sau:
Đọc tiếp
trong tệp TONG.INP cho duy nhất số nguyên N (0<N<1000000). Hãy viết chương trình bằng ngôn ngữ lập trìnhC++ tính tổng của các chữ số của N và ghi vào tệp TONG.CPP số nguyên duy nhất là kết quả của phép tính trên.
cho ví dụ sau:
#include <bits/stdc++.h>
using namespace std;
string n;
int d,i,t,x;
int main()
{
freopen("tong.inp","r",stdin);
freopen("tong.out","w",stdout);
cin>>st;
d=st.length();
t=0;
for (i=0; i<=d; i++)
{
x=int(st[i])-48;
t=t+x;
}
cout<<t;
return 0;
}
Đúng 1
Bình luận (0)
Cho tệp bai1.inp gồm:
Hàng 1:Chứa số nguyên N
Hàng 2:Chứa dãy số nguyên gồm N chữ số
Yêu cầu:-Tính tổng các số lẻ và đếm các số chẵn của dãy số trên
-Ghi kết quả tổng và đếm vào tệp bai1.out
const fi='bai1.inp'
fo='bai1.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,t,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
for i:=1 to n do
read(f1,a[i]);
t:=0;
dem:=0;
for i:=1 to n do
begin
if a[i] mod 2<>0 then t:=t+a[i]
else inc(dem);
end;
writeln(f2,'Tong cac so le la: ',t);
writeln(f2,'So so chan la: ',dem);
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Viết chương trình đọc từ tệp BAI1.INP số nguyên dương N . Tính tổng các số lẻ từ 1 đến N. Ghi kết quả vào tệp BAI1.OUT .
BA1.INP. BAI1.OUT
6. 9
Program HOC24;
var i,n: integer;
t: longint;
f1,f2: text;
begin
assign(f1,'BAI1.INP');
reset(f1);
read(f1,n);
t:=0;
for i:=1 to n do if i mod 2=0 then t:=t+i;
close(f1);
assign(f2,'BAI1.OUT');
rewrite(f2);
write(f2,t);
close(f2);
end.
Đúng 2
Bình luận (0)
Tệp "DULIEU.INP" chứa hai số nguyên dương ngăn cách nhau ít nhất một dấu cách, số trước nhỏ hơn số sau và nhỏ hơn 100.
Viết chương trình: Đọc từ tệp "DULIEU.INP" vào biến M và N (M<N). Tính tổng các số lẻ trong phạm vi từ M đến N. Ghi kết quả ra tệp "KETQUA.OUT".
#include <bits/stdc++.h>
using namespace std;
long long m,n,t,i;
int main()
{
freopen("dulieu.inp","r",stdin);
freopen("ketqua.out","w",stdout);
cin>>m>>n;
t=0;
for (i=m; i<=n; i++)
if (i%2!=0) t+=i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)
cho dãy số nguyên gồm N phần tử,tính tổng các số dương và âm.So sánh giá trị tuyệt đối của tổng số dương và âm ghi kết quả vào tệp Mang.TXT
uses crt;
const fi='mang.txt'
var a:array[1..100]of integer;
i,n,t1,t2:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
t1:=0;
t2:=0;
for i:=1 to n do
begin
if a[i]>0 then
begin
t1:=t1+a[i];
end;
if a[i]<0 then
begin
t2:=t2+a[i];
end;
end;
writeln(f1,'Tong cac so duong la: ',t1);
writeln(f1,'Tong cac so am la: ',t2);
if abs(t1)>abs(t2) then writeln(f1,'Gia tri tuyet doi cua ',t1,' lon hon gia tri tuyet doi cua ',t2)
else if abs(t1)<abs(t2) then writeln(f1,'Gia tri tuyet doi cua ',t2,' lon hon gia tri tuyet doi cua ',t1)
else writeln(f1,'Gia tri tuyet doi cua ',t1,' bang gia tri tuyet doi cua ',t2);
close(f1);
end.
Đúng 0
Bình luận (0)
Bài tập tệp Bài 1: Viết chương trình mở tệp dayso.TXT để đọc các số nguyên ra biến n và tính tổng các số nguyên n chia hết cho 3 hoặc 5? Bài 2: Viết chương trình nhập 50 số nguyên bất kì từ bàn phím và ghi các số nguyên lẻ đã nhập vào tập sole.TXT
Lập trình đọc số nguyên dương N vào tệp có tên ‘Dulieu.txt’ Tính tổng các số chẵn từ 1 đến N, kết quả ghi ra tệp ‘ Uot.txt’ Mọi người giúp em gấp với ạ!!!!!! Em cảm ơn!
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
freopen("dulieu.txt","r",stdin);
freopen("uot.txt","w",stdout);
cin>>n;
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t+=i;
cout<<t;
return 0;
}
Đúng 0
Bình luận (0)