Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
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.
Hãy giúp mọi người biết câu trả lời này thế nào?
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~
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin