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

nguyen phuong chi
Xem chi tiết
hoàng đá thủ
Xem chi tiết
M r . V ô D a n h
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)
Linh Trucc
Xem chi tiết
Lê Thu Trang
Xem chi tiết
Nguyễn Lê Phước Thịnh
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)
duccuong
Xem chi tiết
trần minh trang
Xem chi tiết
Đoàn Xuân Sơn
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)
The8BitImage
Xem chi tiết
Akatsu Rossa
7 tháng 10 2018 lúc 8:58

Universal Serial Bus

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

hihi

Bình luận (0)
thảo phương
Xem chi tiết
Đô Khuyên
Xem chi tiết
Ngố ngây ngô
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)