Mạng máy tính và internet

hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 21:00

uses crt;

var i,n,t,j,kt:integer;

begin

clrscr;

readln(n);

t:=0;

for i:=2 to n do

if n mod i=0 then

begin

kt:=0;

for j:=2 to trunc(sqrt(i)) do

if i mod j=0 then kt:=1;

if kt=0 then t:=t+i;

end;

write(t);

readln;

end.

Bình luận (1)
Lê Minh Thuận
30 tháng 8 2023 lúc 16:38

Dưới đây là một ví dụ về chương trình Pascal để tính tổng các ước số nguyên tố của một số tự nhiên n:

```pascal
program TinhTongUocSoNguyenTo;
var
n, i, j, sum: integer;
isPrime: boolean;
begin
write('Nhap vao so tu nhien n: ');
readln(n);

sum := 0;

for i := 1 to n do
begin
if n mod i = 0 then // Kiểm tra i có là ước số của n không
begin
isPrime := true;

for j := 2 to trunc(sqrt(i)) do // Kiểm tra i có phải là số nguyên tố không begin if i mod j = 0 then begin isPrime := false; break; end; end; if isPrime then // Nếu i là số nguyên tố, cộng vào tổng sum := sum + i; end;

end;

writeln('Tong cac uoc so nguyen to cua ', n, ' la: ', sum);
end.
```

Chương trình trên sẽ yêu cầu bạn nhập vào số tự nhiên n, sau đó tính tổng các ước số nguyên tố của n và hiển thị kết quả.

Bình luận (0)
hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
29 tháng 8 2023 lúc 20:51

uses crt;

var a,b,l,r,i,dem:integer;

begin

clrscr;

readln(a,b,l,r);

dem:=0;

for i:=l to r do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.

Bình luận (0)
Nguyễn Hoàng Duy
30 tháng 8 2023 lúc 14:32

var a,b,dem,L,i,R:longint;

begin

readln(a,b,L,R);

dem:=0;

for i:=L to R do

if (i mod a=0) and (i mod b=0) then inc(dem);

write(dem);

readln;

end.

Bình luận (0)
hoàng đá thủ
Xem chi tiết
Nguyễn Lê Phước Thịnh
13 tháng 8 2023 lúc 18:23

#include <bits/stdc++.h>

using namespace std;

int a,b,i;

int main()

{

cin>>a>>b;

int nn=min(a,b);

for (int i=nn; i>=1; i--)

{

if (a%i==0 && b%i==0) 
{

cout<<i<<" ";

return 0;

}

}

cout<<1;

}

Bình luận (0)
Bastkoo
14 tháng 8 2023 lúc 11:48

Program UCLN;

uses crt;

var a,b,x,y,tg: integer;

begin

clrscr;

write('Nhap a: '); readln(a); x:=a;

rite('Nhap b: '); readln(b); y:=b;

while a<>b do if a>b then a:=a-b else b:=b-a;

write('UCLN(',x,'',y,') = ',a);

Readln;

end.

Bình luận (0)
trần hà hải đăng
Xem chi tiết
lê thị thùy trang
Xem chi tiết
Trâm
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 12 2022 lúc 0:14

Chọn B

Bình luận (1)
Nguyễn Viễn
Xem chi tiết
2imdat
11 tháng 12 2022 lúc 11:22

Với thư điện tử, ta có thể đính kèm thông tin thuộc dạng âm thanh, video, hình ảnh.

Bình luận (0)
Nguyễn Viễn
Xem chi tiết
2imdat
11 tháng 12 2022 lúc 11:07

 Siêu văn bản là văn bản tích hợp nhiều phương tiện khác nhau như: văn bản, hình ảnh, âm thanh, video... và các liên kết tới các siêu văn bản và thường được tạó ra bằng ngôn ngữ đánh dấu siêu văn bản HTML. - Trang web là mỗi siêu văn bản được gán một địa chỉ truy cập trên Internet.

Bình luận (0)
Nguyễn Viễn
Xem chi tiết
Minh Anh sô - cô - la lư...
11 tháng 12 2022 lúc 11:08

Tham khảo :

Một số dịch vụ trên Internet là :

- Tổ chức vè khai thác thông tin trên web.

- Tìm kiếm thông tin.

- Thư điện tử.

Một số ứng dụng là :

- Hội thảo trực tuyến.

- Đào tạo qua mạng

- Thương mại điện tử

Bình luận (0)
Nguyễn Viễn
Xem chi tiết
Bảo Hân
11 tháng 12 2022 lúc 10:52

Mạng máy tính có thể giúp doanh nghiệp của bạn phát triển, cho phép bạn lưu trữ dữ liệu kinh doanh quan trọng ở một vị trí tập trung. Điều này cho phép các máy tính khác nhau trong mạng truy xuất dữ liệu từ vị trí chính. Mạng máy tính cho phép nhân viên chia sẻ ý tưởng dễ dàng hơn và hoạt động hiệu quả hơn.

Bình luận (0)