viet cong thuc nhan cac so ngyuyen x va y sau do hoan doi gia tri va tim x va y ra man hinh
cong thuc cua phan khoi bao hang
canstc tren hang (gt)
canst P= 3,14
canst A=2000
cong thuc toan hoc trong pascal va nguoc lai
AI GIOI MON TIN GIUP MIK VS C.ON RATTT NH LUON
Nhập số nguyên x va y sau đó hoán đổi giá trị và tìm x và y ra màn hình:
program hoan_doi;
uses crt;
var x, y, tam: integer;
begin
clrscr;
write(‘Nhap x=: ‘); readln(x);
write(‘Nhap y=: ‘); readln(y);
tam:=x;
x:=y;
y:=x;
writeln(‘Sau khi hoan doi: ‘);
writeln(‘x=’, x);
writeln(‘y=’, y);
readln
end.
Uses crt;
Var x, y, tg: integer;
Begin
Clrscr;
Write(‘Nhap x va y: ‘); readln(x, y);
tg:=x;
x:=y;
y:=tg;
Writeln(‘x = ‘,x);
Writeln(‘y = ‘,y);
Readln
End.