Uses crt;
Var n,i: LongInt;
Begin
clrscr;
repeat
write('Nhap so tien can rut: '); readln(n);
if n mod 10000<>0 then
begin
clrscr;
writeln('ATM khong tra tien le, vui long nhap lai');
end
else writeln('Rut tien thanh cong');
until (n mod 10000=0);
if n div 500000>=1 then
begin
writeln(n div 500000,' to 500.000');
n:= n mod 500000;
end;
if n div 200000>=1 then
begin
writeln(n div 200000,' to 200.000');
n:= n mod 200000;
end;
if n div 100000>=1 then
begin
writeln(n div 100000,' to 100.000');
n:= n mod 100000;
end;
if n div 50000>=1 then
begin
writeln(n div 50000,' to 50.000');
n:= n mod 50000;
end;
if n div 20000>=1 then
begin
writeln(n div 20000,' to 20.000');
n:= n mod 20000;
end;
if n div 10000>=1 then
begin
writeln(n div 10000,' to 10.000');
n:= n mod 10000;
end;
readln;
End.
uses crt;
var n,gia1,gia2,gia3,gia4,gia5,gia6:longint;
begin
clrscr;
write('nhap so tien n: ');readln(n);
gia1:=n div 500000;
n:=n-gia1*500000;
gia2:=n div 200000;
n:=n-gia2*200000;
gia3:=n div 100000;
n:=n-gia3*100000;
gia4:=n div 50000;
n:=n-gia4*50000;
gia5:=n div 20000;
n:=n-gia5*20000;
gia6:=n div 10000;
n:=n-gia6*10000;
writeln(gia1,' to 500000 ',gia2,' to 200000 ',gia3,' to 100000 ',gia4,' to 50000 ',gia5,' to 20000 ',gia6,' to 10000');
readln;
end.
Tin học, tiếng Anh: informatics, tiếng Pháp: informatique, là một ngành khoa học chuyên nghiên cứu quá trình tự động hóa việc tổ chức, lưu trữ, xử lý và truyền dẫn thông tin của một hệ thống máy tính cụ thể hoặc trừu tượng (ảo). Với cách hiểu hiện nay, tin học bao hàm tất cả các nghiên cứu và kỹ thuật có liên quan đến việc mô phỏng, biến đổi và tái tạo thông tin.
Nguồn : Wikipedia - Bách khoa toàn thưLớp 9 - Là năm cuối ở cấp trung học cơ sở, sắp phải bước vào một kì thi căng thẳng và sắp chia tay bạn bè, thầy cô và cả kì vọng của phụ huynh ngày càng lớn mang tên "Lên cấp 3". Thật là áp lực nhưng các em hãy cứ tự tin vào bản thân là sẻ vượt qua nhé!
Nguồn : ADMIN :))Copyright © 2021 HOCTAP247