Bài 3: Giới thiệu về máy tính

NC
Xem chi tiết
HT
Xem chi tiết
MH
20 tháng 8 2023 lúc 19:48

uses crt;

var s:string;

i,j,dem:integer;

t:boolean;

begin

clrscr;

          write('Nhap xau:');readln(s);

         dem:=0; for i:=1 to length(s) do

         begin

                  t:=false;

                  for j:=1 to i-1 do

                       if((s[j])=(s[i])) then t:=true;

                  if not(t) then inc(dem);

          end;

          write('Co ',dem,' ki tu khac nhau.');

readln;

end.

Bình luận (0)
LT
Xem chi tiết
LT
Xem chi tiết
NT
2 tháng 10 2021 lúc 0:10

-Bộ xử lý trung tâm

-Bộ nhớ truy cập ngẫu nhiên

-Ổ đĩa cứng

Bình luận (0)
H24
Xem chi tiết
TT
Xem chi tiết
DS
24 tháng 10 2018 lúc 22:01

phần nhập thì bạn tự nhập nhé:

Cấu trục câu lệnh:

for i:= 1 to n do

if a[i] = k then d:= d+1;

write(' so phan tu mang bang k la: ',d);

readln;

end.

Bình luận (0)
H24
Xem chi tiết
AR
7 tháng 10 2018 lúc 8:58

Universal Serial Bus

Bình luận (0)
NA
12 tháng 10 2018 lúc 22:57

hihi

Bình luận (0)
TP
Xem chi tiết
DK
Xem chi tiết
NN
12 tháng 9 2018 lúc 8:11
1. CPU (Central Processing Unit) 2. RAM (Random Access Memory) 3. Ổ cứng (HDD hoặc SSD) 4. Bộ nguồn (Power Supply hay PSU) 5. Card đồ họa (Graphics Card) 6. Mainboard (Bo mạch chủ)
Bình luận (0)