Đa phương tiện

H24
Xem chi tiết
VN
22 tháng 10 2022 lúc 22:02

ngồi hóng câu hỏi ra quá nè:)

Bình luận (1)
KR
22 tháng 10 2022 lúc 22:04

yeah (: hóng

 

Bình luận (0)
H24
22 tháng 10 2022 lúc 22:06

:v vẫn chưa có sao ak, sao lâu thế ak 

Bình luận (1)
H24
Xem chi tiết
DH
19 tháng 10 2022 lúc 23:15

quá nà hấp dẫn

Bình luận (0)
H24
19 tháng 10 2022 lúc 23:17

Ủa k có T.Anh thật ạ :_)?

Bình luận (1)
AM
20 tháng 10 2022 lúc 8:05

Khi nào có Vật lí 10 cho mình xin một chân vào học hỏi với :33

Bình luận (0)
ML
Xem chi tiết
BS
22 tháng 9 2022 lúc 18:55

- Các phần mềm mà em đã được học từ chương trình Tin học là: PowerPoint; Excel; Word;..v..v..
- Trong số những phần mềm đó em thích nhất là được sử dụng phần mềm PowerPoint vì phần mềm rất tiện lợi, vừa là một công cụ để giáo viên dạy học và để học sinh thuyết trình, qua đó còn có thể giúp trí óc của mỗi người sáng tạo hơn.

Bình luận (0)
BA
22 tháng 9 2022 lúc 18:49

Em thích sử dụng phần mềm Microsoft Word, tại vì nó giúp em có thể soạn thảo được nhiều văn bản.

Bình luận (0)
MH
22 tháng 9 2022 lúc 18:49

Tham khảo ạ:

Một số phần mềm giải trí mà em thích đó là phần mềm chơi cờ, phần mềm nghe nhạc (Zing mp3, Sound cloud), phần mềm xem video (Youtube). Bởi vì những phần mềm này giúp con người có những phút thư giãn đầu óc, thay đổi không khí sau những khoảng thời gian làm việc căng thẳng.

Bình luận (1)
H24
Xem chi tiết
VL
Xem chi tiết
NT
18 tháng 12 2021 lúc 20:16

Câu 2: 

Kinh tế tri thức là nền kinh tế mà trong đó tri thức là yếu tố quan trọng trong việc tạo ra của cải vật chất và tinh thần của xã hội.  
Bình luận (0)
HH
Xem chi tiết
NT
30 tháng 10 2021 lúc 0:01

uses crt;

var a:array[1..50]of int64;

i,n,t,max,min:int64;

begin

clrscr;

readln(n);

for i:=1 to n do 

  readln(a[i]);

max:=a[1];

min:=a[1];

t:=0;

for i:=1 to n do 

begin

if max<a[i] then max:=a[i];

if min>a[i] then min:=a[i];

t:=t+a[i];

end;

writeln('Tong la: ',t);

writeln('So lon nhat la: ',max);

write('Vi tri la: ');

for i:=1 to n do

if a[i]=max then write(i:4);

writeln;

writeln('So nho nhat la: ',min);

write('Vi tri la: ');

for i:=1 to n do 

if a[i]=min then write(i:4);

readln;

end.

Bình luận (0)
TP
Xem chi tiết
DS
25 tháng 6 2021 lúc 23:18

const fi='test.inp'
        fo='test.out'
var
f:text;
n,i,j,t:longint;
a:array[1..100] of longint;
b:array[1..1000000000] of boolean;
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);
        for i:= 1 to n do
                begin
                b[a[i]]:=true;
                t:=a[i];
                for j:= i+1 to n do
                        begin
                             b[a[j]] := true;
                             b[a[i]+a[j]]:= true;
                             t:=t+a[j];
                             b[t]:=true;
                        end;
                end;
        t:=1;
        while b[t] = true do
                inc(t);
        write(f,t);
        close(f);
 end;
BEGIN
ip;
out;
END.

Bình luận (1)
PL
Xem chi tiết
NM
6 tháng 7 2021 lúc 10:37

k biết

Bình luận (0)
SB
Xem chi tiết
TP
Xem chi tiết
NT
23 tháng 1 2021 lúc 13:48

uses crt;

var a,b:array[1..100]of integer;

i,n,kt,dem,j:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

dem:=0;

for i:=1 to n do 

  if a[i]>1 then

begin

kt:=0;

for j:=2 to a[i]-1 do 

  if a[i] mod j=0 then kt:=1;

if kt=0 then 

begin

inc(dem);

b[dem]:=a[i];

end;

end;

if dem=0 then writeln('Khong co so nguyen to trong day')

else begin

writeln('Cac so nguyen to trong day la: ');

for i:=1 to dem do 

  write(b[i]:4);

end;

readln;

end. 

Bình luận (0)