Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

các tên hợp lệ là:

A) a

B) Tamgiac

G) b1

h) abc

a<>0

a mod 2=0 and a>10

g+c:=36

g+4*x:=100;

a<b+c;

b>a+c;

c>b+a;

hoán đổi a và b

VAr
a,b,tg:Integer;
BEGIN
write('nhap a ' );readln(a);
write('nhap b ');readln(b);
tg:=a;
a:=b;
b:=tg;
write('a la ',a);
writeln;
write('b la ',b);
readln;
end.

còn 1 cách nữa nhưng hơi ăn gian

VAr
a,b:Integer;
BEGIN
write('nhap a ' );readln(a);
write('nhap b ');readln(b);
write('a la ',b);
writeln;
write('b la ',a);
readln;
end.

Bị ngáo à bạn...

??!

Writeln

dùng Writeln

Dùng writeln nhé bn!

Vì readln là lưu vào bộ nhớ!!

program

uses

var

const

begin

end

program Tinh_tong;

uses crt;

var a,b,c:integer;

begin

clrscr;

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

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

write('c=',a+b);

readln;

end.

Program bai1;

uses crt;

var a,b: integer;

begin

clrscr;

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

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

writeln('tong cua a va b =',a+b);

writeln('hieu cua a va b =',a-b);

writeln('tich cua a va b =',a*b);

readln;

end.