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.
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
Câu 1:
uses crt;
var a,b:integer;
begin
clrscr;
readln(a,b);
writeln((a+b)/2:4:2);
readln;
end.
{ đơn giá: a, số lượng: b}
uses crt;
var a,b,s,thanhtoan:integer;
begin
write('nhap gia don hang:');
read(a);
write('nhap so luong hang:');
s:=0;
thanhtoan:=0;
s:=a*b;
if s>100 then thanhtoan:= s*(30/100)
else thanhtoan:= s* (10/100);
write(' so tien can thanh toan la:',' ',thanhtoan);
readln;
end.
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.
INP: 150 hóa đơn
OUT: Tổng số tiền của 150 hóa đơn
Thuật toán
B1: Nhập các số tiền hóa đơn a[1],a[2],...,a[150]
B2: t←0; i←1;
B3: Nếu i<=n thì in ra tổng số tiền và kết thúc
B4: t←t+a[i]; quay lại bước 3
B5: i←i+1; quay lại bước 3.
*Viết chương trình
program hotrotinhoc;
var i,t: longint;
a: array[1..150] of longint;
begin
for i:=1 to 150 do
begin
write('Nhap hoa don so ',i ,':'); readln(a[i]);
end;
t:=0; i:=1;
while i<=n do
begin
t:=t+a[i];
i:=i+1;
end;
write('Tong so tien la : ',t);
readln
end.
Bn coppy bàu khác qua đây hả mik thấy giống y chang, vs lại n là gì vậy
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.
tích để ủng hộ mình nha