Question

Viết chương trình Pascal để thực hiện các công việc sau:

-Nhập từ bàn phím 4 số tự nhiên a,b,c,d

-Hiển thị ra màn hình số lơn hơn 4 số vừa nhập

Answer 1

số lớn hơn 4 số đó thì rất nhiều nhé bạn

phải là số lớn nhất mới đúng chứ

Answer 2

uses crt;

var ln,a,b,c,d:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('so lon nhat trong 4 so la: ',ln);

readln;

end.

Answer 3

uses crt;

var ln,a,b,c,d:integer;

begin

clrscr;

write('a='); readln(a);

write('b='); readln(b);

write('c='); readln(c);

write('d='); readln(d);

ln:=a;

if ln<b then ln:=b;

if ln<c then ln:=c;

if ln<d then ln:=d;

writeln('so lon nhat trong 4 so la: ',ln);

readln;

end.