Cho tệp BAIKT.INP chứa các số nguyên bất kì. Viết chương trình đếm xem trong tệp có bao nhiêu số lẻ rồi ghi kết quả vào tệp KETQUA.OUT
Cho tệp BAIKT.INP chứa các số nguyên bất kì. Viết chương trình đếm xem trong tệp có bao nhiêu số lẻ rồi ghi kết quả vào tệp KETQUA.OUT giúp mình với mình đang gấp ạ. Mình cảm ơn nhiềuu
Cho tệp DEMXAU.INP chứa một xâu kí tự bất kì ,viết CHương trình đếm xem xâu đã cho có bao nhiêu từ .kết quả ghi ra tệp DEMXAU.OUT
giúp mình với mình cần rất gấp. híc híc
const fi='demxau.inp',
fo='demxau.out'
var f1,f2:text;
st:string;
d,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(f2,dem+1);
close(f1);
close(f2);
end.
Cho tệp SONGUYEN.INT, chứa dãy số nguyên bất kì. Viết công thức Pascal : Đếm các số chẵn trong dãy số nguyên đó. Kết quả ghi vào tệp TONG.OUT Giúp em với ạ😔
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
n,i,dem:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln(f2,dem);
close(f1);
close(f2);
end.
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính hiệu của hai số nguyên ghi kết quả ra tệp ketqua.out
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính thương của hai số nguyên ghi kết quả ra tệp ketqua.out
Viết chương trình đọc vào 2 số nguyên dương từ tệp songuyen.inp tính tích của hai số nguyên ghi kết quả ra tệp ketqua.out
cho tệp DATA.TXT các số nguyên, các số cách nhau bởi một dấu cách.Hãy lập chương trình đếm các số lẻ. Ghi kết quả vào tệp TES.TXT.
Đọc dữ liệu từ tệp DL.Dat có chứa các chữ số nguyên. Đếm trong tệp có bao nhiêu số nguyên tố. Các kết quả ghi vào tệp KQ.Dat (C++)
#include <bits/stdc++.h>
using namespace std;
long long n,i,x;
//chuongtrinhcon
bool ktnt(long long x)
{
if (x<2) return false;
for (int i=2; i*i<=x; i++)
if (x%i==0) return(false);
return true;
}
//chuongtrinhchinh
int main()
{
freopen("dl.dat","r",stdin);
freopen("kq.dat","w",stdout);
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (ktnt(x)) dem++;
}
cout<<dem;
return 0;
}
cho tệp SONGUYEN.INP, chứa một dãy số nguyên bất kì:
Viết chương trình pascal: Tính tổng các số chẵn trong dãy số nguyên đó. kết quả ghi vào tệp TONG.OUT.
const fi='songuyen.inp'
fo='tong.out'
var f1,f2:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eoln(f1) do
begin
n:=n+1;
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i] mod 2=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.