A - A - A - A - D - A - A - C - A - A

C, F?

C

Bờm có rất nhiều đồng tiền xu, chúng có một trong hai mệnh giá: đồng hoặc đồng. Việc bảo quản tiền xu rất phiền phức, vì vậy, Bờm muốn tiêu hết chúng thật nhanh. Cụ thể hơn, mỗi khi mua một món hàng giá trị đồng, Bờm muốn chỉ thanh toán bằng tiền xu và sử dụng cách dùng nhiều đồng xu nhất
Pascal

uses crt;

var n,dv,tr,ch,ng:integer;

begin

clrscr;

readln(n);

if n mod 10=0 then  

 begin   

  dv:=n mod 10; 

ch:=n div 10;

ch:=ch mod 10; 

tr:=n div 100;

tr:=tr mod 10; 

ng:=n div 1000;

ng:=ng mod 10; 

if ng=1 then write('M'); 

case tr of  

  1: write('C');   

2: write('CC'); 

  3: write('CCC'); 

  4: write('CD');   

5: write('D');   

6: write('DC'); 

  7: write('DCC'); 

  8: write('DCCC');

    9: write('CM'); 

end; 

case ch of 

  1: write('X'); 

  2: write('XX'); 

  3: write('XXX');   

4: write('XL');   

5: write('L');   

6: write('LX'); 

  7: write('LXX');

    8: write('LXXX'); 

  9: write('XC'); 

end;   

end; 

readln;

 end.

Tham khảo

điều kiện sai nên không thực hiện vòng lặp nên:

b=5

Oken

ngân ới chúng te nên đặt tên lè giề nhể

không có cái nào đúng. Vì:

Lọc dữ liệu là chọn và chỉ hiển thị các hàng thỏa mãn điều kiện do chúng ta quy định.

uses crt;

var i,n,nn:integer;

a:array[1..100]of integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

nn:=a[1];

for i:=1 to n do 

  if nn>a[i] then nn:=a[i];

writeln(nn);

for i:=n downto 1 do 

  if  nn=a[i] then 

begin

write(i);

break;

end;

readln;

end.

lỗi 

lxxxxxxxxxxxxxxxxxxxxxxxxxxxx

lỗi

Tham khảo

Chương trình soạn thảo văn bản là một loại phần mềm được thiết kế để soạn thảo các văn bản điện tử với một số chức năng chính như sau: Hiển thị nội dung văn bản trên màn hình. Cho phép người dùng sửa đổi, bổ sung tại vị trí bất kì trong văn bản. Thể hiện nhiều kiểu chữ (font), cỡ chữ, màu sắc khác nhau.