Viết câu lênh if then đưa ra màn hình 2 gián trị a và b nếu a>b thiền a:=1;b:=2
2 câu trả lời
ý bạn là như này ?
var a,b:longint;
begin
readln(a,b);
if a>b then
begin
a:=1; b:=2;
end;
writeln(a,' ',b);
readln;
end.
Program Typlex;
Uses crt;
Var a,b: integer;
Begin
Writeln('a='); Readln(a);
Writeln('b='); Readln(b);
If a>b then
Begin
a:=1; b:=2;
End;
Writeln('a=',a,' b=',b);
Readln
End.
