Tệp baitap.in chứa 1 số nguyên, tính bình phương số đó, ghi kq vào tệp ketqua.out
Giúp em với ạ
Những câu hỏi liên quan
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 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
Viết CT đọc các số nguyên từ tệp Baitap.in tính tổng các số không âm và ghi vào tệp Ketqua.out
const fi='baitap.inp';
fo='ketqua.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
inc(n);
read(f1,a[n]);
end;
t:=0;
for i:=1 to n do
if a[i]>=0 then t:=t+a[i];
writeln(f2,t);
close(f1);
close(f2);
end.
Đúng 0
Bình luận (0)
1) Cho tệp dulieu.in là tệp vban, chứa các số nguyên cách nhau 1 kí tự trống. Vt ctrinh đọc dữ liệu trog tệp r thựtc hiện các công vc sau a) Ghi vào tệp ketqua.out các số bội số nguyên K nhập từ bàn phím b) Đếm và tính tổng các số thỏa mãn yêu cầu rồi in ra màn hình
Lưu ý có sd ctrinh con
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.
Đúng 1
Bình luận (0)
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 dulieu.inp chứa các bộ số nguyên ( mỗi bộ ghi trên 1 dòng gồm 2 số nguyên cách nhau bởi 1 kí tự trống). Vt ctrinh đọc dữ liệu trong tệp trên rồi tính tổng của mỗi bộ số nguyên, ghi các kq vào tệp tong.out( mỗi kq trên 1 dòng ). Lưu ý có sd ctrinh con