Viết chương trình nhập ba số a,b,c từ bàn phím. Hiển thị kết quả ra màn hình giá trị lớn nhất của ba số đó?
2 câu trả lời
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.
Program chuong_trinh;
Uses crt;
Var a,b,c,max: integer;
Begin
Clrscr;
Write('a='); readln(a);
Write('b='); readln(b);
Write('c='); readln(c);
Max:=a;
If max<b then max:=b;
If max<c then max:=c;
Writeln (' so lon nhat la:',max);
Readln;
End.
Bài ở dưới là bài ktr tin của mình í;-; bạn kham khảo~