Bài 1: Cho tập “SONGUYEN.TXT" gồm 2 số nguyên M và N ( M
Những câu hỏi liên quan
Bài 1: Cho tập “SONGUYEN.TXT" gồm 2 số nguyên M và N ( M
Mọi người ơi giúp mình bài này với
Cho tệp songuyen.txt gồm 5 hàng 4 cột. Tìm số lớn nhất trong tệp songuyen.txt và ghi vào tệp gtln.txt
const fi='songuyen.txt';
fo='gtln.txt';
var f, g: text;
max, x: longint;
i, j: byte;
begin
assign(f, fi);
reset(f);
assign(g, fo);
rewrite(g);
max:=minlongint;
for i:=1 to 5 do
for j:=1 to 4 do
begin
read(f, x);
if x>max then max:=x;
if j=4 then readln(f);
end;
write(g, max);
close(f);
close(g);
end.
Đúng 0
Bình luận (0)
Cho tệp SONGUYEN.TXT chứa cac số nguyên dương N.
Viết ct in ra các số chẵn nhỏ hơn hoặc bằng N; Tính tổng các số chẵn đó.
Kết quả ghi vào tệp SOCHAN.TXT
a) XĐ input, output bài toán
b) Viết ct giải quyết bài toán trên
Mô tả
- Tệp SONGUYEN.TXT chứa các số nguyên dương N
- Tệp SOCHAN.TXT dòng ban đầu chứa các số chẵn nhỏ hơn hoặc bằng N
- Dòng 2 chứa tổng số chẵn
AI GIÚP EM VỚI Ạ
Cứuuuuu e
Đọc tiếp
Cho tệp SONGUYEN.TXT chứa cac số nguyên dương N. Viết ct in ra các số chẵn nhỏ hơn hoặc bằng N; Tính tổng các số chẵn đó. Kết quả ghi vào tệp SOCHAN.TXT a) XĐ input, output bài toán b) Viết ct giải quyết bài toán trên Mô tả - Tệp SONGUYEN.TXT chứa các số nguyên dương N - Tệp SOCHAN.TXT dòng ban đầu chứa các số chẵn nhỏ hơn hoặc bằng N - Dòng 2 chứa tổng số chẵn AI GIÚP EM VỚI Ạ Cứuuuuu e
a)
Input: Số nguyên dương N, dãy số a1,a2,a3,...,an
Output: Tổng các số chẵn nhỏ hơn hoặc bằng N
b)
Program HOC24;
var i,n: integer;
t: longint;
a: array[1..1000] of integer;
f1,f2: text;
const fi='SONGUYEN.TXT'
fo='SOCHAN.TXT'
begin
assign(f1,fi);
assign(f2,fo);
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to n do read(f1,a[i]);
for i:=1 to n do if (a[i] mod 2=0) and (a[i]<=n) then
begin
write(f2,a[i],' ');
t:=t+a[i];
end;
writeln(f2);
write(f2,t);
close(f1); close(f2);
end.
Đúng 0
Bình luận (0)
cho tệp songuyen.txt gồm các số nguyên cách nhau 1 dấu cách tính tổng các số dương đua kq ra màn hình
uses crt;
const fi='songuyen.txt'
var f1:text;
a:array[1..100]of integer;
i,n,t:integer;
begin
clrscr;
assign(f1,fi); reset(f1);
n:=0;
while not eof(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(t);
close(f1);
readln;
end.
Đúng 0
Bình luận (0)
Bài tập Cho số nguyên x và dãy số nguyên A gồm N số: al, a2,....an. (1
Bài tập Cho số nguyên x và dãy số nguyên A gồm N số: al, a2,...an. (1
Viết chương trình đọc số nguyên n từ tệp songuyen.txt ; ghi vào tệp kluan.txt kết luận n là số chẵn hay số lẻ ? Biết tệp songuyen.txt chỉ chứa một số nguyên duy nhất.
Xem chi tiết
const fi='songuyen.txt'
fo='kluan.txt'
var f1,f2:text;
n:integer;
begin
assign(f1,fi); reset(f1);
assign(f2,fo); rewrite(f2);
readln(f1,n);
if n mod 2=0 then writeln(f2,'La so chan')
else writeln(f2,'La so le');
close(f1);
close(f2);
end.
Đúng 1
Bình luận (0)
Bài 1: Viết chương trình nhập dữ liệu từ file input.txt gồm hai số nguyên n, m (n, m <= 10^18) và một phép tính. Thực hiện phép tính vơi hai số đó và in ra file ouput.txt?
Bài 2: Tương tự như trên nhưng đầu vào là một chuỗi gồm hai số và 1 phép tính xen giữa. Nhập và xuất kết quả ra bằng file?
cho tệp SONGUYEN.TXT gồm 2 dòng, dòng 1 chứa số nguyên dương n, dòng 2 chứa n số nguyên. Các số nguyên ngăn cách nhau bởi dấu cách. Viết chương trình đọc dữ liệu từ tệp SONGUYEN.TXT. Tính và đưa ra kết quả số lượng các số nguyên tố và tệp KETQUA.TXT
Program HOC24;
const fi='SONGUYEN.TXT';
fo='KETQUA.TXT';
var n,i,d:integer;
a: array[1..32000] of integer;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do read(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n do
if nt(a[i]) then inc(d);
write(f,d);
close(f);
end;
begin
ip;
out;
end.
Đúng 0
Bình luận (0)