*Viết chương trình ghi hai số 5 và 15 vào tệp so.txt:

const f='so.txt';

var f1:text;

begin

assign(f1,f); rewrite(f1);

writeln(f1,'5 15');

close(f1);

end.

*Viết chương trình tính tổng, hiệu, tích, thương của x,y và in kết quả ra màn hình:

uses crt;

const fi='so.txt';

var x,y:integer;

f1:text;

begin

clrscr;

assign(f1,fi); reset(f1);

readln(f1,x,y);

writeln('Tong la: ',x+y);

writeln('Hieu la: ',x-y);

writeln('Tich la: ',x*y);

writeln('Thuong la: ',x/y:4:2);

close(f1);

readln;

end.

Dạ vâng em cảm ơn ạ

uses crt;

var n,i,s,kt,j,t:longint;

begin

clrscr;

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

s:=1;

for i:=1 to n do

  s:=s*i;

t:=0;

for i:=2 to s do 

  if s mod i=0 then

begin

kt:=0;

for j:=2 to i-1 do 

  if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

writeln('Tong cac uoc nguyen to cua n,'! la: ',t);

readln;

end.

ta dinh nghia nhu sau

n!=n*(n-1)*(n-2)*...*1;

vs 4!=1*2*3*4;

vi the ban chi can tinh tong cac so nguyen to tu 1 den n thoi

ko can tinh n! lam j cho mat tg ,do phuc  tap la O(n) nhe

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(a[i]:4);

const fi='hcn.inp';     

fo='hcn.out';

var f1,f2:text;   

a,b:array[1..100]of integer;   

i,j,n:integer;

begin

assign(f1,fi); reset(f1);

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

n:=0;

while not eof(f1) do 

begin     

inc(n);     

readln(f1,a[n],b[n]); 

end;

for i:=1 to n do 

writeln(f2,2*(a[i]+b[i]),' ',a[i]*b[i]);

close(f1);

close(f2);

end.

uses crt;

var n,i,d,x,j,tam:longint;

a:array[1..255]of longint;

st:string;

begin

clrscr;

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

str(n,st);

d:=length(st);

for i:=1 to d do 

  val(st[i],a[i],x);

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do

  write(a[i]);

readln;

end.

uses crt;

var a:array[1..100]of integer;

i,n,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t:=0;

for i:=1 to n do 

  if a[i] mod 2<>0 then t:=t+a[i];

writeln('Tong cac so le la: ',t);

readln;

end.

uses crt;

var h:array[1..100]of integer;

n,i,t:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

write('H[',i,']='); readln(h[i]);

end;

t:=0;

for i:=1 to n do 

  if h[i] mod 2=0 then t:=t+h[i];

writeln('Tong cac so chia het cho 2 la: ',t);

readln;

end.

uses crt;

var a:array[1..100]of integer;

n,i,t:integer;

begin

clrscr;

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

for i:=1 to n do 

  begin

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

end;

t:=0;

for i:=1 to n do 

  if (a[i] mod 3=0) and (a[i] mod 4<>0) then t:=t+a[i];

writeln('Tong cac so chia het cho 3 nhung khong chia het cho 4 la: ',t);

readln;

end.