Giúp em bài này với ạ:
Viết chương tình nhập sâu dài không quá 255 ký tự .Hãy tính tổng số chẵn rồi ghi ra tệp "dưlieu.dat"
Mng giúp mình các BT cuối kì vs ạ Bài 1: Viết chương trình nhập từ bàn phím 2 số nguyên a,b; Sau đó ghi chúng vào tệp có tên D:\Baitaptin.txt. Bài 2: Viết chương trình nhập từ bàn phím 1 xâu không quá 180 kí tự; Xuất xâu vừa nhập ra màn hình rồi ghi xâu đó vào tệp có tên E:\tepxau.txt. Bài 3: Viết chương trình nhập từ bàn phím 2 số nguyên dương; Tính và ghi tổng của chúng vào tệp có tên ‘teptong.txt’ rồi xuất tổng ra màn hình.
Bài 3:
uses crt;
const fi='teptong.txt'
var a,b:integer;
f1:text;
begin
clrscr;
assign(f1,fi); rewrite(f1);
readln(a,b);
writeln(a+b);
writeln(f1,a+b);
close(f1);
readln;
end.
Gải sử có tệp văn bản KT.TXT chứa xâu kí tự không quá 255. Viết chương trình đọc dữ liệu trong tệp KT.TXT vào biến S. Thay thế tất cả các cụm kí tự "anh" bằng cụm kí tự "em". Ghi xâu sau khi được thay thế vào tệp KQ.OUT
giúp em với mai em thi rồi ạ
const fi='kt.txt'
fo='kq.out'
var f1,f2:text;
s:string;
i,dem,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,s);
vt:=pos('anh',s);
while vt<>0 do
begin
delete(s,vt,3);
insert(s,vt,'em');
vt:=pos('anh',s);
end;
writeln(f2,s);
close(f1);
close(f2);
end.
Làm giúp mình bài này với ạ,mình đang cần gấp
Em hãy viết chương trình Pascal để tính tổng của dãy số An(A1,A2,A3, ...,An) với n được nhập từ bàn phím.Em hãy viết chương trình để in ra tổng các số chẵn của dãy An
uses crt;
var x,n,i,t:integer;
begin
clrscr;
readln(n);
t:=0;
for i:=1 to n do
begin
readln(x);
if x mod 2=0 then t:=t+x;
end;
writeln(t);
readln;
end.
program ideone;
var i,n,x,res:longint;
begin
readln(n);
res:=0;
for i:=1 to n do
begin
read(x);
if x mod 2 = 0 then
res:=res+x;
end;
write(res);
end.
Viết chương trình nhập vào dãy số tự nhiên. Đếm và in ra màn hình số phần tử chẵn, tính tổng số phần tử chẵn trong n số vừa nhập. (Lưu ý không dùng mảng)
Mọi người ơi, giúp em với ạ
#include <bits/stdc++.h>
using namespace std;
long long dem,x,n,i,t;
int main()
{
cin>>n;
t=0;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0)
{
dem++;
t+=x;
}
}
cout<<dem<<" "<<t;
return 0;
}
Var s,n,i,dem,so:integer;
Begin
Write('Nhap so luong so n = ');readln(n);
For i:=1 to n do
Begin
Write('Nhap so thu ',i);readln(so);
If so mod 2 = 0 then
Begin
dem:=dem+1;
s:=s+so;
End;
End;
Writeln('Co ',dem,' so chan');
Write('Tong cac so chan la ',s);
Readln;
End.
Chép tệp văn bản xauso.inp gồm 1 dòng(<255 kí tự) cho các ký tự. viết chương trình tách các số rồi ghi vào tệp xauso.out mỗi số ghi trên một dòng
const fi='inp.inp'
fo='out.inp'
var f1,f2:text;
st:array[1..100]of string;
i,n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,st[n]);
end;
for i:=1 to n do
writeln(f2,length(st[i]));
close(f1);
close(f2);
end.
Viết chương trình nhập vào một số chẵn lớn hơn 10 nhỏ hơn 70. Nếu nhập không đúng yêu cầu nhập lại? Sau đó tính tổng các số từ 1 đến số chẵn vừa nhập?
ai giúp e bài này với ạ
#include <bits/stdc++.h>
using namespace std;
long long n,i,t;
int main()
{
cin>>n;
if ((n>10) and (n<70))
{
t=0;
for (i=1; i<=n; i++)
if (i%2==0) t=t+i;
cout<<t;
}
else cout<<"Nhap lai";
return 0;
}
Cho tệp XAUIN gồm nhiều dòng, mỗi dòng là 1 xâu ký tự ( độ dài không quá 255 ) Viết CT đọc XAU.IN rồi xác định độ dài từng dòng, sau chuyển tất cả các xâu thành in hoa. Ghi kết quả vào tệp xauout
const fi='xau.inp'
fo='xau.out'
var f1,f2:text;
a:array[1..100]of string;
i,d:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
n:=0;
while not eof(f1) do
begin
n:=n+1;
readln(f1,a[n]);
end;
for i:=1 to n do
begin
for j:=1 to length(a[i]) do
a[i][j]:=upcase(a[i][j]);
end;
for i:=1 to n do
writeln(f2,length(a[i]),' ',a[i]);
close(f1);
close(f2);
end.
Viết chương trình nhập vào 1 sâu bất kỳ và cho biết sâu có bao nhiêu từ ( mỗi từ là 1 dãy các ký tự khác ký tự trắng) Mong mọi người giúp mai em thi học kỳ rồi ạ
uses crt;
var st:string;
i,d,dem:integer;
begin
clrscr;
readln(st);
d:=length(st);
dem:=0;
for i:=1 to d do
if st[i]=' ' then dem:=dem+1;
writeln(dem+1);
readln;
end.