Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var n:integer;
Begin
Write (' nhap so tien : ');
Readln(n);
Write ( n div 50,' to 50n ');
n:=n mod 50;
Write ( n div 20,' to 20n ');
n:=n mod 20;
Write ( n div 5,' to 5n ');
n:=n mod 5;
Write ( n div 2,' to 2n ');
n:=n mod 2;
Write ( n div 1,' to 1n ');
n:=n mod 1;
Readln;
end.
Bạn ơi!
Viết rõ là có thể đổi ra thành bao nhiêu tờ 10,5,2,1 đồng hay là có thể lấy bao nhiêu tờ 10,5,2,1 để tạo thành một số tiền bằng n vậy bạn?
Ví dụ như nhập n=30
thì xuất là 3 tờ 10; 6 tờ 5; 15 tờ 2; 30 tờ 1
hay là xuất 3 tờ 10
Program Đổi_Tiền;
var
loai5000,loai2000,loai1000,m,n: integer;
write('nhap so tien can doi :'); readln(n);
M:=n;
loai5000:= n div 5000; n:=n-loai5000*5000;
if n<>0 then
begin
loai2000 :=n div 2000; n:=n-loai2000*2000;
if n<>0 then
begin
loai1000:=n div 1000 ; n:=n-loai1000*1000;
end;
writeln(M , 'doi duoc thanh :' ,loai5000,' to 5000,' ,loai2000,' to 2000 ,' ,loai1000,' to 1000 ,');
readln;
end.
Tham khảo:
program ct;
uses crt;
var a,b,h,S:integer;
begin clrscr;
writeln('Nhap do dai hai day: '); readln(a,b);
writel('Nhap chieu cao: '); readln(h);
S:=h*((a+b)/2);
writeln('Dien tich hinh thang do la: ',S);
readln;
end.
uses crt;
var s,a,b,h:real;
begin
clrscr;
readln(a,b,h);
s:=(a+b)/2*h;
writeln(s:4:2);
readln;
end.
program bai1;
var n,d,d1,d2:longint;
begin
readln(n);
d:=n div 500;
n:=n-d*500;
d1:=n div 200;
n:=n-d1*200;
d2:=n div 100;
n:=n-d2*100;
writeln(d);writeln(d1);writeln(d2);
readln
end.