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.

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

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.

var n:real;

begin

write(' Nhap so dien dung la: ');readln(n);

writeln(' So tien dien la: ',(n*2000):2:2);

readln;

end.