1. The object of the database is … a)File
b)Cell
c)Column
d)Table
e)Format
What are the differences between 5th generation computer and other generation computers?
a) Scientific code
b) Technological advancement
c) Object Oriented Programming
d) All of the above
e) None of the above
2. Multithreading:
a) Allows different parts of a single program to run concurrently
b) Allows two or more users to run programs at the same time Some operating systems permit hundreds or even thousands of concurrent users
c) Supports running a program on more than one CPU
d) Allows more than one program to run concurrently
e) Responds to input instantly General-purpose operating systems, such as DOS and UNIX, are not real-time
3. The first mechanical computer, created by ... in 1822
a) Charles Babbage
b) Konrad Zuse
c) Alan Turing
d) John Vincent Atanasoff
e) J. Presper Eckert and John Mauchly
4. Which programming language does Microsoft Word use to create macros?
a) Visual Basic
b) Pascal
c) C/C++
d) PHP
e) Delphi
5. What is required when more than one person uses a central computer at the same time?
a) Light pen
b) Mouse
c) Digitizer
d) Terminal
e) None of the above
6. The intersection of a column and row in a spreadsheet is called a bon or
a) Key
b) Cell
c) Field
d) Menu
e) None of the above
7. Wizard to create a database
a) Allows you to use templates for creating database objects
b) Enables the use of links in data processing
c) is a tool to create a database schema
d) is a tool for the implementation of projects
e) Selects data from one or more tables
8. MS Access does not work
a) Tables.
b) Slides.
c) the form.
d) Query
e) Records.
9. Archiver - a ...
a) The totality of the data and programs stored in compressed form
b) The process of file compression to save disk space
c) Save a copy of the original files of their compression
d) Program to compress files to save disk space
e) The program for the treatment of viruses
10. WAN Hardware does not include:
a) Multiplexer
b) Router
c) Bridge
d) None of these
e) ALU
11. The first computer company was the ... and was founded in 1949 by J. Presper Eckert and John Mauchly.
a) Electronic Controls Company
b) Microsoft corporation
c) Apple
d) Hewlett Packard
e) Samsung Electronics
13. What is Information system?
a) Information system consists of a series of related instructions, organized for a common purpose, that tells the computer what tasks to perform and how to perform them.
b) Information system is simply the act of transferring information from one place to another
c) Information system is set of processing methods
d) Information system is the physical part of a computer
e) Information system is an organized system for the collection, organization, storage of information
14. Which language was devised by Dr. Seymour Aubrey Papert?
a) FORTRAN
b) APL
c) PASCAL
d) LOGO
e) None of the above
15. ... is a device that performs signal conversion
a) Plotter
b) Modem
c) Keyboard
d) Plotter
e) Modulator
16. Which language was developed by professor Niklaus Wirth in 1970-1971?
a) APL
b) PASCAL
c) LOGO
d) FORTRAN
e) None of the above
17. Provider is ...
a) A unit of information transmitted by Internet Protocol
b) Username
c) Commercial service, providing its customers access to the Internet
d) System Administrator
e) Enterprise user
18. Major security problems are ...
a) Virus, Hacker, Malware, Trojan horses, Password cracking
b) Virus, Paradox, Malware, Trojan horses, Password editing
c) Virus, Hacker, Protect, Trojan horses, Password cracking
d) Virus, Hacker, Malware, Applications, Password editing
e) Virus, Hockey, Malware, Trojan horses, Password keeping
19. Basic elements of a computer-based information system (CBIS):
a) Antivirus program, Software, Data, Procedures, People, Communications
b) Hardware, Software, Utilities, Procedures, People, Communications
c) Date, Information, Data, Procedures, People, Communications
d) Hardware, Software, Data, Procedures, People, Communications
e) Chat, Software, Data, Users, People, Internet
20. Element base of the first generation of computers are
a) Integrated Circuits
b) Large integrated circuits
c) Semiconductor circuit
d) Vacuum lamps
e) Diodes and transistors
var n,i:integer;
t:array[1..100] of real;
a,b:real;
begin
readln(n);
readln(a);
readln(b);
for i:=1 to n do
begin
t[i]:=(b-a)/n;
write(t[i],' ');
end;
end.
2) Program n1;
var a:array[1..100] of integer;
n,i:integer;
k:real;
begin
read(n);
k:=0;
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i] mod 2 <> 0 then
k:=k+1;
writeln;
writeln('кол-во нечет. чисел равно ',k,'');
end.
6) Program n1;
var a:array[1..100] of real;
i,n:integer;
s,sr:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
s:=0;
sr:=0;
for i:=1 to n do
s:=s+a[i];
sr:=s/n;
writeln('сред. арифметическое равно ',sr,'');
end.
7) Program n1;
var a:array[1..100] of real;
i,n:integer;
min,max:real;
begin
read(n);
for i:=1 to n do
read(a[i]);
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
max:=a[1];
for i:=2 to n do
if a[i]>max then
max:=a[i];
writeln('максимальный элемент равен ',max,'');
writeln('минимальный элемент равен ',min,'');
end.
8) Program n1; var a:array[1..100] of real; i,n:integer; min,max,nom1,nom2:real; begin read(n); for i:=1 to n do read(a[i]); min:=a[1]; nom1:=1; for i:=2 to n do if a[i]<min then begin min:=a[i]; nom1:=i; end; max:=a[1]; nom2:=1; for i:=2 to n do if a[i]>max then begin max:=a[i]; nom2:=i; end; writeln('максимальный элемент равен ',max,', его номер ',nom2,''); writeln('минимальный элемент равен ',min,', его номер ',nom1,''); end.
9) Program n1; var a:array[1..100] of real; i,n:integer; min,max,s,sr:real; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(100)+1; write(a[i],' '); end; writeln; s:=0; sr:=0; for i:=1 to n do s:=s+a[i]; sr:=s/n; writeln('ср. арифм. = ',sr,''); min:=a[1]; for i:=2 to n do if a[i]<min then min:=a[i]; max:=a[1]; for i:=2 to n do if a[i]>max then max:=a[i]; writeln('максимальный элемент равен ',max,''); writeln('минимальный элемент равен ',min,''); end.
Var
s : String;
n : Integer;
Function IncS(a : String) : String;
Begin
a[Length(a)]:=Chr(Ord(a[Length(a)])+1);
If a[Length(a)]>'D' then
IncS:=IncS(Copy(a,1,Length(a)-1))+'A'
else IncS:=a;
end;
Function Check(a : String) : Boolean;
Begin
Check:=False;
If (Pos('A',a)>0) then
Begin
Delete(a,Pos('A',a),1);
If (Pos('A',a)>0) then Check:=True;
end;
end;
Begin
s:=''; n:=0;
While s<>'' do
Begin
{ Writeln(s); }
If Check(s) then Inc(n);
s:=IncS(s);
end;
Writeln(n);
end.