program password; uses crt; var tk, mk: string; begin repeat
clrscr; textcolor (white); writeln (‘Dang nhap de thoat khoi chuong trinh’); write (‘nhap ten tai khoan: ‘); readln (tk); write (‘nhap mat khau: ‘); readln (mk); if (tk=’tencuaban_123′) and (mk=’123456789′) then exit; if (tk<>’
@Huỳn
Ví dụ của Ngoại lực:
– Gió thổi cát bay tạo thành những đụn cát ven biển.
Ví dụ của Nội lực:
– Sự thay đôi nhiệt độ không khí làm cho đá ở bề mặt Trái Đất bị nứt vỡ
5 sao + ctlhn, tks!
program password;
uses crt;
var tk, mk: string;
begin
repeat
clrscr;
textcolor (white);
writeln (‘Dang nhap de thoat khoi chuong trinh’);
write (‘nhap ten tai khoan: ‘); readln (tk);
write (‘nhap mat khau: ‘); readln (mk);
if (tk=’tencuaban_123′) and (mk=’123456789′) then
exit;
if (tk<>’