[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.
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.
