Chương trình đơn giản

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.

Khái niệm số La Mã : 

Số La Mã hay chữ số La Mã là hệ thống chữ số cổ đại, dựa theo chữ số Etruria. Hệ thống này dựa trên một số ký tự Latinh nhất định được coi là chữ số sau khi được gán giá trị. Hệ thống chữ số La Mã dùng trong thời cổ đại và đã được người ta chỉnh sửa vào thời Trung Cổ để biến nó thành dạng mà chúng ta sử dụng ngày nay.

Bài làm :

Số nguyên N (1 < N < 1000 )

N không phải số tròn chục :

D 500 (năm trăm) (quingenti)M 1000 (một ngàn) (mille)Nhiều ký hiệu có thể được kết hợp lại với nhau để chỉ các số với các giá trị khác chúng. Điều này phụ thuộc vào các quy định cụ thể về sự lặp. Trong những trường hợp mà một chữ số nào đó có thể được viết ở một dạng ngắn hơn, đôi khi ta được phép đặt một ký hiệu nhỏ hơn, có "tính trừ" trước một giá trị lớn hơn, để mà, ví dụ, người ta có thể viết IVhay iv để diễn tả số bốn, thay vì iiii. Một lần nữa, đối với các số không được gán ký hiệu đặc biệt, những ký hiệu trên được kết hợp để diễn tả chúng:• II hay ii cho hai • III hay iii cho ba. Đôi khi, ký tự cuối cùng là "j" thay vì là "i", thường là trong cácđơn thuốc.

• IV, iv, IIII, hay iiii cho bốn

• VI hay vi cho sáu.

• VII hay vii cho bảy.

• VIII hay viii cho tám.

• IX hay ix cho chín .
 

thi ???

var a:Array [1..100] of word;

      n,i:byte;

      S:word;

begin

 write('Nhap so so hang trong day : n = '); readln(n);

 for i:=1 to n do begin

                          write('A[',i,'] = '); 

                          readln(A[i]);

                         end;

S:=0;

for i:=1 to n do if A[i] mod 2 = 1 then S:=S+A[i];

if S = 0 then write('Trong day khong co so le nao nen khong tong khong ton tai') else write('Tong cac so le trong day la : S = ',S);

readln

end.

Chương trình nhập n và mảng hay nhập mảng chưa biết số hạng tử v

#include <bits/stdc++.h>

using namespace std;

long long a[1000],n,i,ln,t1,dem,s;

int main()

{

cin>>n;

for (i=1; i<=n; i++) cin>>a[i];

ln=a[1];

for (i=1; i<=n; i++) ln=max(ln,a[i]);

cout<<ln<<endl;

t=0;

for (i=1; i<=n; i++) if (a[i]%2==0) t=t+a[i];

cout<<t<<endl;

dem=0;

for (i=1; i<=n; i++) if (a[i]<0) dem++;

cout<<dem<<" ";

s=1;

for (i=1; i<=n; i++)

if ((a[i]%3==0) and (a[i]>0)) s=s*a[i];

cout<<s;

return 0;

}

Var a:array[1..200] of integer;

i,n,max,s1,dem,s2:integer;

begin

write('Nhap so luong phan tu cua mang n = ');readln(n);

for i:=1 to n do

begin

write('Nhap phan tu thu ',i,' = ');readln(a[i]);

end;

max:=a[1];

for i:=2 to n do

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

for i:=1 to n do

begin

if a[i] mod 2 = 0 then s1:=s1+a[i];

end;

for i:=1 to n do

begin

if a[i] < 0 then dem:=dem + 1;

end;

s2:=1;

for i:=1 to n do

begin

if (a[i] > 0) and (a[i] mod 3 = 0) then s2:=s2*a[i];

end;

writeln('gia tri lon nhat trong mang la ',max);

writeln('tong cac so chan la ',s1);

writeln('Co ',dem,' so am');

write('tich cac so duong va chia het cho 3 la ',s2);

end;

readln;

end.

#include <bits/stdc++.h>

using namespace std;

long long n,i,t,dem;

int main()

{

cin>>n;

t=0;

dem=0;

for (i=1; i<=n; i++)

if (i%3==0)

{

t=t+i;

dem++;

}

cout<<t<<endl;

cout<<fixed<<setprecision(2)<<(t*1.0)/(dem*1.0);

return 0;

}