*Tập tin (File) là tập hợp các thông tin có liên quan với nhau được lưu trữ trên bộ nhớ ngoài. Cụ thể tập tin là các chương trình, dữ liệu được lưu trữ trên đĩa. Để phân biệt giữa các tập tin với nhau, mỗi tập tin có một tên.

*Chẳng có chức năng nào của chương trình mày tính cả

Câu hỏi này không rõ chủ đề cho lắm là chức năng của chương trình máy tính hay của máy tính???

*Hệ điều hành trong máy tính tổ chức thông tin đa dạng và phức tạp nên được có cấu trúc hình cây .

nói rõ hơn được không

Câu 2 :

program bai2;

uses crt;

var n :integer;

begin

clrscr;

writeln(' ');

writeln(' TIM GIA TRI TUYET DOI CUA MOT SO');

writeln(' ');

write(' Ban hay nhap so n = ');

readln(n);

if n>0 then writeln('Gia tri tuyet doi cua ',n,' = ',n);

if n<0 then writeln('Gia tri truye doi cua ',n,' = ',n*-1);

readln

end.

1:

uses crt;

var a:integer;

begin

clrscr;

write('a='); readln(a);

if a>0 then writeln(a,' la so duong');

if a<0 then writeln(a,' la so am');

if a=0 then writeln(a,' khong la so duong cung khong la so am');

realdn;

end.

2:

uses crt;

var x:longint;

begin

clrscr;

write('nhap x='); readln(x);

if x mod 2=0 then writeln(x,' la so chan');

if x mod 2=1 then writeln(x,' la so le');

readln;

end.

3:

ước chung lớn nhất: UCLN(a,b);

chạy 1 vòng lặp chưa biết trước (repeat hoặc while) với đk dừng là b=0

trong vòng lặp đó có các lệnh:

r:=a mod b;

a:=b;

b:=r;

bội chung nhỏ nhất: BCNN(a,b)=\(\frac{a\cdot b}{ucln\left(a,b\right)}\)

1 Bit = Binary Digit
8 Bits = 1 Byte
1000B (Bytes) = 1KB (Kilobyte)
1000KB (Kilobytes) = 1MB (Megabyte)
1000MB (Megabytes) = 1GB (Gigabyte)
1000GB (Gigabytes) = 1TB (Terabyte)
1000TB (Terabytes) = 1PB (Petabyte)
1000PB (Petabytes) = 1EB (Exabyte)
1000EB (Exabytes) = 1ZB (Zettabyte)
1000ZB (Zettabytes) = 1YB (Yottabyte)
1000YB (Yottabytes) = 1BB (Brontobyte)
1000BB (Brontobytes) = 1GeB (Geopbyte)

program baicuaban;

Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
ReadLn(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
ReadLn(a[i]);
End;
For k:=1 to (n-1) do
For i:=1 to (n-1) do
If a[i] > a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
WriteLn('Mang da sap xep:');
For i:=1 to n do write(a[i],' ');
WriteLn;
Write('nhap vao so X :');
ReadLn(X);
i:=1;
While (x>a[i]) and(i<=n) do i:=i+1;
For k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
Write('Mang da chen X:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;
End.

CHÚC BẠN HỌC TỐT.sai hãy liên hệ với mình, đúng tick cho mình nha

program baicuaban;

Var a:array [1..100] Of integer;
k,n,i,tam,x:integer;
Begin
Write('Nhap so phan tu n:');
ReadLn(n);
For i:=1 to n do
Begin
Write('a[',i,']=');
ReadLn(a[i]);
End;
For k:=1 to (n-1) do
For i:=1 to (n-1) do
If a[i] > a[i+1] then
Begin
tam:=a[i];
a[i]:=a[i+1];
a[i+1]:=tam;
End;
WriteLn('Mang da sap xep:');
For i:=1 to n do write(a[i],' ');
WriteLn;
Write('nhap vao so X :');
ReadLn(X);
i:=1;
While (x>a[i]) and(i<=n) do i:=i+1;
For k:=n+1 downto i do
a[k]:=a[k-1];
a[i]:=x;
Write('Mang da chen X:');
For i:=1 to n+1 do write(a[i],' ');
ReadLn;
End.

program moddiv;

var n,i,k,t,a:integer;

s:string;

procedure nhap;

begin

readln(n);

end;

procedure xuli;

begin

k:=1;t:=0;

for i:=2 to length(s) do k:=k*10;

while n <> 0 do

begin

a:=n mod 10;

n:=n div 10;

t:=t+k*a;

k:=k div 10;

end;

writeln(t);

begin

nhap;

xuli;

readln;

end.

Chúc bạn làm được bài!( có sai nói mik nha)