Cho biết kết quả sau khi thực hiện chương trình sau:
a,
Var i, j:integer;
Begin
j:=0;
for i:=0 to 5 do j:=j+2;
writeln ('j=' ,j);
Readln
End.
b,
Var x, y :integer;
Begin
x:=7; y:=6;
If x>y then x:=x+y essen x:=x-y;
Writeln('x=' ,x);
Readln
End.
Giúp mik với ạ
Loga
Sinh Học lớp 12
