[PASCAL] VIẾT CHƯƠNG TRÌNH TÌM SỐ LỚN NHẤT TRONG BA SỐ A,B,C ĐƯỢC NHẬP TỪ BÀN PHÍM

Xin chào các bạn, hôm nay mình sẽ chỉ cho các bạn tìm giá trị lớn nhất trong 3 số nguyên a,b,c được nhập từ bàn phím.

Đầu tiên chúng ta khai báo tên và thư viện của chương như sau:

program so_lon_nhat;
uses crt;

sau đó ta khai báo biến,

var a,b,c : integer;

Bắt đầu xây dựng chương trình

begin

clrscr; 

 write(‘Hay nhap so nguyen a:’);  readln(a);

 write(‘Hay nhap so nguyen b’);   readln(b);

 write(‘Hay nhap so nguyen c’);    readln(c);

if (a>c) and (a>b) then write(a ,’ la so lon nhat’);

if (b>c) and (b>a) then write(b ,’ la so lon nhat’);

if (c>a) and (c>b) then write(c ,’ la so lon nhat’);

readln

và kết thúc.

end.

Chào thân ái và hẹn gặp, nếu có lỗi liên hẹ mình nhé !!!
FB: đây