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

Nguyễn Thùy Chi
Xem chi tiết
Thất
Xem chi tiết
16 Hoàng Thiên Hưng
Xem chi tiết
Minh Lệ
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 5 2022 lúc 15:09

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.

Bình luận (0)
Hồ Hoàng Khánh Linh
30 tháng 5 2022 lúc 11:23
Bình luận (9)
Cao ngocduy Cao
30 tháng 5 2022 lúc 11:30

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 .
 

 

 

Bình luận (1)
Huy Trần Gia
Xem chi tiết
Kieu Tram
Xem chi tiết
Hải Vân
31 tháng 3 2022 lúc 7:32

thi ???

Bình luận (0)
Vân Ngô
Xem chi tiết
Ngô Thành Chung
26 tháng 3 2022 lúc 17:05

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.

Bình luận (0)
Lê Thị Bảo Trâm
Xem chi tiết
Trần Đức Huy
6 tháng 2 2022 lúc 11:49

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

Bình luận (0)
Nguyễn Lê Phước Thịnh
6 tháng 2 2022 lúc 12:43

#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;

}

Bình luận (1)
Kiều Vũ Linh
7 tháng 2 2022 lúc 8:37

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.

Bình luận (0)
Trần Vi Nam Khánh
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2021 lúc 15:17

#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;

}

Bình luận (0)
Bảo Văn
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 12 2021 lúc 21:51

#include <bits/stdc++.h>

using namespace std;

long long i,m,t;

int main()

{

cin>>m;

t=0;

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

if ((i%2!=0) and (i%7==0)) t=t+i;

cout<<t;

return 0;

}

Bình luận (0)