ôn bài đã

Program BT;
Uses crt;
Var tien,songay,giamgia:Real;
loai:Char;
Begin
clrscr;
Writeln('Vui long nhap so ngay');Readln(songay);
Writeln('Vui long nhap loai');Readln(loai);
Case loai of
'A':begin
If songay<=12 then tien:=250000*songay
Else tien:=(250000*songay)-((250000*songay)/10)
end;

'B':begin
If songay<=12 then tien:=200000*songay
Else tien:=(200000*songay)-((200000*songay)/100*8)
end;

'C':begin
If songay<=12 then tien:=150000*songay
Else tien:=(150000*songay)-((150000*songay)/100*8)
end;
end;
Writeln('So tien can thanh toan la :',tien:0:11);
Readln;
End.
{Day la do minh tu viet co the con sai sot do minh dang ban neu co gi sai ban binh luan de minh sua nhe cam on ^^}

Var a,b:Longint;{Ban co the thay bang kieu Byte,Integer,Shortint,Word,... neu ban muon}
Begin
Writeln('Vui long nhap a,b');Readln(a,b);
Writeln('Tich cua a,b la :',a*b, '       Tong cua a,b la :',a+b);
Readln;
End.

Var a,kt:Longint{Ban co the thay bang kieu Byte,Integer,Word,Shortint,...}
Begin
Writeln('Vui long nhap a');Readln(a);
If kt mod 2=0 then Writeln('a la so chan')
Else Writeln('a la so le');
End.

Var a,b:Longint;{Ban co the thay bang kieu Byte,Integer,Shortint,Word,... neu ban muon}
Begin
Writeln('Vui long nhap a,b');Readln(a,b);
Writeln('Tich cua a,b la :',a*b, '       Tong cua a,b la :',a+b);
Readln;
End.

Màn hình sẽ in ra dòng sau:
y= 5

Var x:Integer;{co the khai bao kieu Real,Byte,Longint,Shortint,..}
       y:String;

Hỏi gì?

27g H2O nha bạn
lấy (9.10^23/(6.10^23)).18=1,5.18=27

Program BT;
Uses crt; Var a,b,i:Longint;
Begin
clrscr;
Writeln(' Vui long nhap a,b');
Readln(a,b);
If a>b then Writeln(a,' ',b)
Else if a<b then Writeln(b,' ',a)
else Writeln('a = b ',a,' ',b);
Readln;
end.

Var a,b:Longint;
Begin
Writeln('Vui long nhap a,b');Readln(a,b);
If a>b then Writeln('a *** hon b')
Else Writeln('a nho hon hoac bang b');{Neu ban muon cho nay la "a nho hon b" thi sua lai thanh else if a<b then Writeln('a nho hon b') nhe}
End.