Những câu hỏi liên quan
H24
Xem chi tiết
UL
Xem chi tiết
UL
Xem chi tiết
UL
Xem chi tiết
UL
Xem chi tiết
MA
Xem chi tiết
H24
Xem chi tiết
NT
30 tháng 4 2022 lúc 22:10

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.

Bình luận (0)
NH
Xem chi tiết
NT
29 tháng 1 2021 lúc 22:19

uses crt;

const fo='b.txt'

var f1:text;

a:array[1..200]of integer;

i,n:integer;

begin

clrscr;

assign(f1,fo); rewrite(f2);

write('Nhap n='); readln(n);

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

write(f1,a[i]:4);

close(f1);

readln;

end.

Bình luận (0)
H24
29 tháng 1 2021 lúc 21:20

program cap_so_cong; 

uses crt; var a: array[1..100] of integer; i, n, k: integer;

{i la bien dem, k de luu cap so} begin clrscr; write('N= ');

readln(n); for i:=1 to n do begin write('A(',i,')= ');

readln(a[i]);

 end; 

{Bat dau phan kiem tra} k:=a[2]-a[1]; i:=2; repeat i:= i+1; until (a[i]<>a[i-1]+k) or (i>n);

 if i>n then write('Day A la mot cap so cong') else

write('Day A khong phai la mot cap so cong');

 readln 

end. 

Bình luận (0)
AL
Xem chi tiết
NT
13 tháng 4 2022 lúc 18:29

uses crt;

const fo='data.txt'

var f1:text;

a:array[1..10]of integer;

i,n:integer;

begin

clrscr;

assign(f1,fo); rewrite(f1);

n:=10;

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(f1,a[i]:4);

close(f1);

readln;

end.

Bình luận (0)
TT
Xem chi tiết
ML
9 tháng 4 2023 lúc 18:34

Program HOC24;

var i,n: integer;

c: array[1..1000] of integer;

f: text;

begin

assign(f,'MANG3.TXT');

reset(f);

readln(f,n);

for i:=1 to n do read(f,c[i]);

close(f);

for i:=1 to n do if c[i] mod 2=1 then write(c[i],' ');

readln

end.

Bình luận (0)
TT
9 tháng 4 2023 lúc 11:39

cứu e với mn

 

Bình luận (0)