uses crt;

var a,b,c:integer;

begin

clrscr;

for a:=1 to 9 do 

for b:=0 to 9 do 

for c:=0 to 9 do 

if (a+b+c=a*b*c) then writeln(a,b,c,' ');

readln;

end.

Tổng 3 chữ số của số bé nhất có 3 chữ số có tích 3 chữ số bằng 3 là ? 

a)nguyên tử theo hàm độ x y là nguyên tử y

b)giá trị là o,87645

c)784736

d)878,985,354,894,9045

chị học lớp 9 rồi nên hiểu mà,chị đc 10 bài này đó,tin chị đi

chị lớp 9 xàm v

uses crt;

var n,i:integer;

st:string;

begin

clrscr;

readln(n);

if n mod 4=0 then writeln('n chia het cho 4')

else writeln('n khong chia het cho 4');

str(n,st);

writeln(length(st));

for i:=length(st) downto 1 do write(st[i]);

readln;

end.

Bài 2: 

uses crt;

var x,i,n,dem:integer;

begin

clrscr;

readln(n);

dem:=0;

for i:=1 to n do 

begin

readln(x);

if x mod 2=0 then inc(dem);

end;

writeln(dem);

readln;

end.

Bài 1 :

- Giống nhau:

+Biến và hằng điều là đại lượng lưu trữ dữ liệu.

+Hai đại lượng này phải khai báo mới sử dụng được.

Khác nhau:

- Hằng: Giá trị của hằng không thể thay đổi trong quá trình thực hiện chương trình.

- Cách khai báo biến:

Var<tên biến>:<kiểu dữ liệu>;

VD: Var a,b:integer;

C:string;

-Biến: giá trị của biến có thể thay đổi trong quá trình thực hiện chương trình.

_ Cách khai báo hằng:

const <tên hằng>=<giá trị của hằng>;

VD: Const pi=3.14;

Bài2. Giả sử ta đã khai báo một hằng Pi với giá trị 3.14. Có thể gán lại giá trị 3.1416 cho Pi trong phần thân chương trình được không, tại sao?
Trả lời
Không thể gán được, vì một tên hằng không thể nhận một lúc hai giá trị.

Bài 3 .Trong Pascal, khai báo nào sau đây là đúng?
a. Var tb : real ;
b. Var 4hs: integer ;
c. Const x : real ;
d. Var R = 30 ;
Lời giải :
Đáp án đúng là đáp án a.  Var tb : real ; vì  cách khai báo biến:  Var<tên biến>:<kiểu dữ liệu>;