Tin học Rút tiền ATM

[Ngô Kim Chí Vi]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Chương trình bày sai chỗ nào vậy ạ???
program ATM;
Uses crt;
Var a:integer;
Max a= 65000;
begin
writeln('Nguoi dung can rut bao nhieu tien');
Writeln('so tien can rut la',a); readln (a);
If ( a mod 500 = 0) then writeln ('ban da rut duoc so tien la', a);
Writeln (' ban rut duoc', (a div 500), 'to 500');
If (a mod 500 >< 0) then writeln (' khong the rut duoc tien');
Readln;
end.

 

[ka1412]

Chương trình bày sai chỗ nào vậy ạ???
program ATM;
Uses crt;
Var a:integer;
Max a= 65000;
begin
writeln('Nguoi dung can rut bao nhieu tien');
Writeln('so tien can rut la',a); readln (a);
If ( a mod 500 = 0) then writeln ('ban da rut duoc so tien la', a);
Writeln (' ban rut duoc', (a div 500), 'to 500');
If (a mod 500 >< 0) then writeln (' khong the rut duoc tien');
Readln;
end.

Bỏ dòng max a=6500 đi nhé bạn

 

[Ngô Kim Chí Vi]

Bỏ dòng max a=6500 đi nhé bạn

Bỏ dòng max a=65000 thì vẫn chạy sai

 

[ĐứcNhật!]

program ATM;
Uses crt;
Var a:integer;
Max a= 65000;
begin
writeln('Nguoi dung can rut bao nhieu tien');
Writeln('so tien can rut la',a); readln (a);
If ( a mod 500 = 0) then writeln ('ban da rut duoc so tien la', a);
Writeln (' ban rut duoc', (a div 500), 'to 500');
If (a mod 500 <> 0) then writeln (' khong the rut duoc tien');
Readln;
end.

 

[Nguyen Hanh Minh Khanh]

If ( a mod 500 = 0 ) then
begin
writeln ('ban da rut duoc so tien la', a);
writeln (' ban rut duoc', (a div 500), 'to 500');
end;
Rút được tiền thì mới có số tờ đc. Nếu làm như CT của bạn thì TH khi không chia hết cho 500 CT vẫn chạy câu lệnh writeln (' ban rut duoc', (a div 500), 'to 500');