Tin học Viết chương trình

[Phùng Lê Toàn Chí]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

viết chương trình = pascal tìm giá trị lớn nhất trong 4 số a,b,c,d

 

[Hoàng Công Minh]

Program Gia_Tri_Lon_Nhat;
Uses crt;
Var a,b,c,d,max:real;
Begin
Clrscr;
Writeln(‘TIM SO LON NHAT TRONG BON SO A, B, C, D’);
Write(‘Nhap a=’); Readln(a);
Write(‘Nhap b=’); Readln(b); Write(‘Nhap c=’); Readln(c);
Write(‘Nhap d=’); Readln(d); max:=a;
If b>max then max:=b; If d>max then max:=d;
Writeln(‘So lon nhat la:’,max:4:2);
Readln;
End.