* khác nhau:

+biến có giá trị thay đổi được trong chương trình.

+hằng có giá trị không thay đổi trong suốt quá trình thực hiện chương trình.

* cú pháp khai báo biến :

danh_sách_tên_biến : tên_kiểu_dữ_liệu;

+ trong đó Danh_sách_tên_biến là một dãy tên biến được đặt cách nhau bởi dấu phẩy.

* lệnh gán:

tên_biến := biểu_thức.

* Khác nhau:

+ Biến có thể thay đổi giá trị được trong khi chạy chương trình.

+ Hằng có giá trị không thay đổi trong suốt quá trình thực hiện chương trình.

* Cú pháp khai báo :

- Biến : Var <tên biến> : <kiểu dữ liệu của biến>;

- Hằng : Const <tên hằng> = < giá trị của hằng>;

Việc tạo ra chương trình máy tính gồm những bước:

B1: Viết chương trình bằng ngôn ngữ lập trình

B2: Dịch chương trình từ ngôn ngữ lập trình sang ngôn ngữ máy.

1-A

2-C

3-D

4-C

5-A

các này là câu hỏi hay câu trả lời???

Program hoan_doi;

uses crt;

var hd p ,q: integer;

begin

clrscr;

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

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

write('gia tri ban dau cua p = ',p,' va ' q = ',q);

hd:=p;

p:=q;

q:=hd;

writeln;

writeln('gia tri cua p va q sau khi hoan doi la p =',p,' va q =',q);

readln;

end.

bạn có thể tham khảo

Program chu_so;

var a:integer;

begin

clrscr;

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

writeln(' chu so hang don vi la: ' , a mod 10 );

writeln(' chu so hang chuc la: ' , (a mod 100) - (a mod 10) );

writeln(' chu so hang tram la: ' , (a mod 1000) - (a mod 100) );

readln ;

end.

Program Tong_hieu_tich_thuong;

uses crt;

var tong,hieu,tich,thuong: real;

a,b: integer;

begin

clrscr;

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

write('nhap so b ='); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a div b;

writeln('tong cua 2 so a va b =' ,tong);

writeln('hieu cua 2 so a va b =' , hieu );

writeln('tich cua 2 so a va b =',tich);

writeln('thuong cua 2 so a va b =' ,thuong);

readln;

end.

Program tinh;

Uses crt;

Var

a,b,tich,tong,hieu:Integer;

thuong:Real;

Begin

Clrscr;

Write('nhap so a la '); readln(a);

Write('nhap so b la ‘); readln(b);

tong:=a+b;

hieu:=a-b;

tich:=a*b;

thuong:=a/b;

Writeln('tong cua 2 so do la ' ,tong);

Writeln('hieu cua 2 so do la ' , hieu );

Writeln('tich cua 2 so do la ',tich);

Writeln('thuong cua 2 so do la ' ,thuong:10:2);

Readln;

End.

uses crt;
var n,i,dem,t:integer;
begin
clrscr;
write('nhap n='); readln(n);
writeln('so ban vua nhap la: ',n);
dem:=0;
t:=0;
for i:=1 to n-1 do
if n mod i=0 then begin
write(i:4);
dem:=dem+1;
t:=t+i;
end;
writeln;
writeln('so cac uoc cua ',n,' ko ke chinh no la: ',dem);
writeln;
writeln('tong cac uoc cua ',n,' khong ke chinh no la: ',t);
if t=n then write(n,' la so hoan hao')
else write(n,' khong phai la so hoan hao');
readln;
end.