Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var n,sc,sl,i:longint;
Begin
Write('N = ');readln(n);
Write('Cac so tu 1 den ',n,' la ');
For i:=1 to n do
Write(i:8);
Writeln;
For i:=1 to n do
Begin
If i mod 2 = 0 then sc:=sc+i
Else sl:=sl+i;
End;
Writeln('Tong cac so chan la ',sc);
Write('Tong cac so le la ',sl);
Readln
End.
Thông tin có thể được coi là giải quyết sự không chắc chắn; đó là câu trả lời cho câu hỏi "thực thể là gì" và do đó xác định cả bản chất và bản chất của các đặc tính của nó. Khái niệm thông tin có ý nghĩa khác nhau trong các bối cảnh khác nhau. Do đó, khái niệm này trở nên liên quan đến các khái niệm ràng buộc, giao tiếp, kiểm soát, dữ liệu, hình thức, giáo dục, kiến thức, ý nghĩa, hiểu biết, kích thích tinh thần, mô hình, nhận thức, đại diện và entropy.
đây bạn
• Mạng máy tỉnh là tập hợp các máy tính được kết nối với nhau cho phép dùng chung các tài nguyên như dữ liệu, phần mềm, các thiết bị phần cứng…
• Các lợi ích cùa mạng máy tính, đó là:
– Dùng chung dữ liệu: có thề sao chép dữ liệu từ máy này sang máy khác hoặc lưu dữ liệu tập trung ở máy chủ, từ đó người dùng trên mạng có thể truy cập đến khi cần
– Dùng chung các thiết bị phần cứng: Chia sẻ máy in, bộ nhớ, các ổ đĩa và nhiều thiết bị khác để người dùng trên mạng có thề dùng chung;
– Dùng chung các phần mềm: Có thể cài đặt phần mềm lên máy tính để người dùng trên mạng dùng chung. Nó sẽ giúp tiết kiệm đáng kể;
– Trao đổi thông tin: Có thể trao đổi thông tin giữa các máy tính thông qua thư điện từ (e-mail) hoặc phần mềm trò chuyện trực tuyến (chat).
TL câu 3 thui:
Lợi ích của máy tính là:
- Khi hok zoom cop bài cô ko bt, đỡ cần phải ghi ra giấy ddeert hôm sau trả lời bài.
- Có thể vừa hok vừa nghe nhạc bài mk thích
- bấm máy cũng nhanh hơn, đánh đc cả văn bản
- Mở ra ứng dụng khác mà nghe nhạc vẫn ko bị phát hiện
RỒI NHIỀU THỨ LẮM
ỦNG HỘ MK NHÉeeeeeeeeee
uses crt;
var a,b:longint;
Begin
clrscr;
Writeln('Nhap a,b=');
Readln(a,b);
writeln('tich hai so la : a*b=',a*b);
writeln('thuong hai so la :a/b=',a/b);
Readln;
End.
Tổng số tiền nhận được theo ví dụ của bạn phải là 76 chứ?
Lời giải:
program hotrotinhoc;
var a: array[1..1000] of longint;
f: text;
i,n,s : longint;
procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n);
for i:=1 to n do
read(f,a[i]);
close(f);
end;
procedure out;
begin
assign(f,fo);
rewrite(f);
s:=0;
for i:=1 to n do
s:=s+a[i];
write(f,s);
close(f);
end;
begin
ip;
out;
end.
uses crt;
type mang=array[1..100]of integer;
var a:mang;
{-------------------cau-1---------------------------}
function nhap(var b:mang):integer;
var i,n:integer;
begin
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(b[i]);
end;
end;
{-------------------cau-2---------------------------}
function xuat(var b:mang):integer;
var i,n:integer;
begin
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(b[i]:4);
end;
{-------------------cau-3---------------------------}
function sapxep(var b:mang):integer;
var i,n,tam,j:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if b[i]<b[j] then
begin
tam:=b[i];
b[i]:=b[j];
b[j]:=tam;
end;
writeln;
writeln('Day so giam dan la: ');
for i:=1 to n do write(b[i]:4);
end;
{-----------------chuong-trinh-chinh------------------------}
begin
clrscr;
nhap(a);
xuat(a);
sapxep(a);
readln;
end.
1:
#include <bits/stdc++.h>
using namespace std;
long long a[100],i,n;
int main()
{
cin>>n;
for (i=1; i<=n; i++) cin>>a[i];
cout<<"Day ban dau la: "<<endl;
for (i=1;i<=n; i++) cout<<a[i]<<" ";
cout<<endl;
sort(a+1,a+n+1);
cout<<"Day tang dan la: "<<endl;
for (i=1; i<=n; i++) cout<<a[i]<<" ";
return 0;
}