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
0 bình luận về “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”
uses crt; var max,a,b,c:longint; begin clrscr; write(‘a=’);readln(a); write(‘b=’);readln(b); write(‘c=’);readln(c); max:=a; if b>max then max:=b; if c>max then max:=c; writeln(‘Max= ‘,max); readln end.
uses crt;
var max,a,b,c:longint;
begin
clrscr;
write(‘a=’);readln(a);
write(‘b=’);readln(b);
write(‘c=’);readln(c);
max:=a;
if b>max then max:=b;
if c>max then max:=c;
writeln(‘Max= ‘,max);
readln
end.
Program so_lon_nhat;
Uses Crt;
Var a,b,c :Integer;
Begin
Clrscr;
Writeln (‘Hay nhap so a: ’);
Readln (a);
Writenln (‘Hay nhap so b: ’);
Readln (b);
Writeln (‘Hay nhap so c: ’);
Readln (c);
If (a>b) and (a>c )then writeln (‘ a la so lon nhat’);
If (b>a )and (b>c) then writeln (‘b la so lon nhat’);
If (c>a) and (c>b )then writeln (‘c la so lon nhat’);
Readln;
End.