Bài 1:
uses crt;
var n:integer;
begin
clrscr;
write('Nhap so: '); readln(n);
writeln('Chu so hang tram: ',n div 100);
n:=n mod 100;
writeln('Chu so hang chuc: ',n div 10);
n:=n mod 10;
writeln('Chu so hang don vi: ',n);
readln;
end.
Bài 2:
Cách 1: Dùng nhập 4 biến thông thường
uses crt;
var a,b,c,d,max:integer;
begin
clrscr;
write('Nhap so thu nhat: '); readln(a);
write('Nhap so thu hai: '); readln(b);
write('Nhap so thu ba: '); readln(c);
write('Nhap so thu tu: '); readln(d);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
if d>max then max:=d;
write('So lon nhat: ',max);
readln;
end.
Cách 2: Nhập mảng gồm 4 số
uses crt;
var a:array[1..4] of integer;
i,max:integer;
begin
clrscr;
for i:=1 to 4 do
begin
write('Nhap so thu ',i,': '); readln(a[i]);
end;
max:=a[1];
for i:=2 to 4 do
if a[i]>max then max:=a[i];
write('So lon nhat: ',max);
readln;
end.
