Tìm kiếm:

Bài ASCII nè...
Var i:char;
Begin
Write('Nhap 1 ký tu');
readln(i);
Write(i,'=',ord(i));
readln;
end.
xem hộ xem em sai cái gì ko

Bài 4 thì thế này
Var giay,phut,gio:integer;
Begin
Write('Nhap so giay');
readln(n);
gio:= giay div 3600;
Phut:=giay div 60;
Giay:= giay mod 60;
Write(gio,'h',phut,'m',giay,'giay');
readln;

Đi một vòng Google kiếm dc một số bài hay nhưng cơ bản là chủ yếu... Anh em cùng giải cho vui
1.Viết tất cả các ước nguyên tố của 1 số tự nhiên n nhập từ bàn phím
2.Nhập vào 3 số a,b,c . Tìm số lớn...