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
22 tháng 7 2021
uses crt;
Var i,n,dem:integer;
a: array[1..1000] of integer;
Begin
clrscr;
Write('Nhap do dai cua day: ');readln(n);
dem:=0;
for i:= 1 to n do
Begin
write('So thu ',i,' = ');
readln(a[i]);
if a[i] mod 2 = 0 then inc(dem);
end;
Writeln('Day so co ',dem,' so chan');
readln;
End.
ML
2 tháng 8 2023
Program HOC24;
var i: integer;
function nt(x: integer): boolean;
var j: integer;
begin
nt:=true;
if (x=2) or (x=3) then exit;
nt:=false;
if (x=1) or (x mod 2=0) or (x mod 3=0) then exit;
j:=5;
while j<=trunc(sqrt(x)) do
begin
if (x mod j=0) or (x mod (j+2)=0) then exit;
j:=j+6;
end;
nt:=true;
end;
Begin
for i:= 10 to 99 do if nt(i) and i mod 2=0 then write(i,' ');
readln
end.
31 tháng 8 2016
*Giong nhau:
-Dieu ket noi cac may tinh lai voi nhau.
-Dieu co ba thanh phan: may tinh, thiet bi mang dam bao ket noi cac may tinh voi nhau, phan men cho phep thuc hien viec giao tiep giua cac may tinh
*Khac nhau:
-LAN: +Ket noi cac may tinh gan nhau, chang han trong mot phong, mot toa nha, mot xi nghiep, mot truong hoc,...
+Vai chuc may tinh va thiet bi duoc ket noi vou nhau.
-Wan: +Ket noi cac may tinh o cach nhau nhung khoang cach lon, manh dien rong(wan)thuong lien ket cac mang cuc bo(lan),chan han mang cuc bo(lan) Ca Mau lien ket voi mang cuc bo(lan) o Noi.
+Hang chuc ngin may tinh va thiet bi duoc ket noi voi nhau.
31 tháng 8 2016
*) Giống nhau: (Ở từ mạng ấy) Đều là 1 tập hợp các máy tính đc liên kết với nhau, có thể chia sẻ tài nguyên, trao đổi thông tin với nhau .....!
*) Khác nhau:
-) (Về mặt kỹ thuật - Công nghệ) Mạng có dây sử dụng dây cáp (cáp thường hoặc cáp quang) để truyền thông tin. Trong khi đó, Mạng ko dây sử dụng sóng vô tuyến!
-) (Về mặt chi phí lắp đặt) Mạng có dây chi phí cao hơn hẳn (Tiền mua dây cáp), còn mạng ko dây chi phí rất rẻ!
31 tháng 8 2016
Máy chủ hay máy phục vụ (tiếng Anh: server computer) là một máy tính được nối mạng, có IP tĩnh, có năng lực xử lý cao và trên máy đó người ta cài đặt các phần mềm để phục vụ cho các máy tính khác (máy trạm) truy cập để yêu cầu cung cấp các dịch vụ và tài nguyên. Máy chủ đôi khi còn được gọi là hệ thống cuối
Máy chủ: Một máy tính hay một thiết bị trên mạng, nó quản lý tài nguyên của mạng. Ví dụ như, một máy dịch vụ tập tin là một máy tính hoặc là một thiết bị chuyên dụng để lưu trữ các tập tin. Bất kỳ người sử dụng nào trên mạng cũng có thể lưu trữ các tập tin trên máy chủ.
31 tháng 8 2016
Máy chủ (server) : máy chủ thường là máy tính có cấu hình mạnh, cài đặt chương trình dùng để điều khiển toàn bộ việc quản lí và phân bố tài nguyên mạng với mục đích dùng chung.
Máy trạm ( Client) : Sử dụng tài nguyên do máy trạm cung cấp.
HM
1
D
datcoder
CTVVIP
26 tháng 10 2023
Program HOC24;
var st,st1,st2: string;
i,n,d,k,j: integer;
t,m: longint;
a: array[1..10000] of integer;
f: text;
const fi='SUBSUM.INP' ;
fo = 'SUBSUM.OUT' ;
Procedure ip;
begin
assign(f,fi);
reset(f);
readln(f,n,m);
for i:=1 to n do read(f,a[i]);
close(f);
end;
Procedure out;
begin
assign(f,fo);
rewrite(f);
d:=0;
for i:=1 to n-1 do
Begin
If a[i]=m then d:=d+1;
for j:=i+1 to n do
begin
t:=0;
for k:=i to j do t:=t+a[k];
if t=m then d:=d+1;
end;
End;
if a[n]=m then d:=d+1; write(f,d);
close(f);
end;
Begin
ip;
out;
End.
13 tháng 6 2023
program abcdef;
uses Crt;
var
k, lowerLimit, upperLimit, i, j, reversed, temp, remainder: integer;
isPrime, isPalindrome: boolean;
begin
clrscr;
write('Nhap so chu so k (1<=k<=9): ');
readln(k);
lowerLimit := 1;
for i := 1 to k - 1 do
lowerLimit := lowerLimit * 10;
upperLimit := lowerLimit * 10 - 1;
writeln('Cac so nguyen to doi xung co ', k, ' chu so la:');
for i := lowerLimit to upperLimit do
begin
// Kiểm tra số nguyên tố
isPrime := True;
if i < 2 then
isPrime := False
else
for j := 2 to trunc(sqrt(i)) do
if i mod j = 0 then
beginisPrime := False;break;end;
// Kiểm tra số đối xứng
if isPrime then
begin
reversed := 0;
temp := i;
while temp <> 0 dobeginremainder := temp mod 10;
reversed := reversed * 10 + remainder;
temp := temp div 10;
end;
isPalindrome := (i = reversed);
if isPalindrome then
writeln(i);
end;
end;
readln;
end.
LC
1
Q
11 tháng 8 2023
Program GIAINEN;
Var s,st: string;
j,i,k,l: byte;
begin
readln(s);
while length(s)<>0 do
begin
for i:=1 to length(s) do
if s[i] in ['A'..'Z'] then st:=st+s[i]
else if s[i] in ['1'..'9'] then break;
for i:=1 to length(s) do
if s[i] in ['2'..'9'] then
begin
val(s[i],k);
l:=i;
break;
end;
for j:=1 to k do write(st);
delete(s,1,l);
st:='';
end;
readln
end.
Program HOC24;
var t,n,s,d: integer;
begin
d:=1; s:=1; t:=0;
while d<100 do
begin
t:=t+2;
s:=s+t;
d:=d+1;
end;
write(s);
readln
end.