Question

1. Viết chương trình nhập giá trị , đổi giá trị 2 số rồi in 2 số ra màn hình

2. Viết chương trình cho biết chữ số hàng trăm hàng chục hàng đơn vị 1 số có 3 chữ số

Answer 1

program hoan_doi;

var x,y,z : integer;

begin

read(x,y);

writeln(x,'',y) ;

z := x;

x:=y ;

y:= z ;

writeln (x,'',y) ;

readln

end.

Mình ko chắc

Answer 2

var a,b,c:integer;

begin

write('a=');readln(a);

write('b=');readln(b);

c:=a;

a:=b;

b:=c;

writeln('ket qua: ',a,' va ',b);

readln;

end.