NP
7
K
Khách
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.
Các câu hỏi dưới đây có thể giống với câu hỏi trên
ML
5 tháng 4 2020
Program hotrotinhoc;
var s: longint;
i,n: integer;
function lt(x,y: integer): longint;
var l,t: longint;
begin
t:=1;
for l:=1 to y do t:=t*x;
lt:=t;
end;
begin
write('N='); readln(n);
for i:=2 to n do
if (i-1) mod 2<>0 then s:=s+lt((i-1),i)
else
if (i-1) mod 2=0 then s:=s-lt((i-1),i);
write(s);
readln
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
15 tháng 12 2019
uses crt;
var n,i:integer;
s:real;
begin
clrscr;
write('n='); readln(n);
if (n>=0) and (n<=100) then
begin
s:=0;
for i:=1 to n do
s:=s+(i/(i+1));
writeln('tong la: ',s);
end
else writeln('vui long nhap lai');
readln;
end.
NL
Nguyễn Lê Phước Thịnh
CTVHS
20 tháng 3 2020
uses crt;
var s,i:longint;
begin
clrscr;
s:=0;
for i:=1 to 50 do
s:=s+i;
writeln('S=',s);
readln;
end.
NM
1
NL
Nguyễn Lê Phước Thịnh
CTVHS
17 tháng 5 2020
uses crt;
var a,i,s:longint;
begin
clrscr;
write('a='); readln(a);
s:=0;
for i:=1 to a do
begin
if i mod 2=1 then s:=s+i
else s:=s-i;
end;
writeln('Ket qua la: ',s);
readln;
end.
19 tháng 10 2021
• 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).
19 tháng 10 2021
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 s,i:integer;
begin
clrscr;
s:=0;
for i:=1 to 100 do
s:=s+i;
write(s);
readln;
end.
5050
\(1+2+3+...+100=\dfrac{100.101}{2}=\dfrac{10100}{2}=5050\)
đây là phần tin học cơ mà
1+2+3+...+100
=(100+1).100\2
=101.100\2
=10100\2
=5050
program tt;
ues crt;
var i,s:longint;
begin
clrscr;
s:=0;
i:=0;
while i<=100do
begin
inc(i);
s:=s+i;
end;
readln;
end.