Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất
Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất
By Adeline
By Adeline
Viết chương trình pascal nhập vào 3 số a,b,c nhập từ bàn phím in ra kết quả lớn nhất
program so_max;
uses crt;
var a,b,c,max:integer;
begin
clrscr;
write(‘Nhap a: ‘); readln(a);
write(‘Nhap b: ‘); readln(b);
write(‘Nhap c: ‘); readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
write(‘So lon nhat la: ‘,max);
readln;
end.
Program tim_max;
Uses crt;
Var m,n,k:real;
max:real;
begin
clrscr;
write(‘nhap so thu nhat =’); readln(m);
write(‘nhap so thu hai =’); readln(n);
write(‘nhap so thu ba =’); readln(k);
max:=m;
if n>max then max:=n;
if k>max then max:=k;
writeln(‘gia_tri_lon_nhat=’,max:4:0);
readln;
end.
~Xin hay nhất ạ~