1. В данное предложение вставьте пропущенные слова: «Конфигура- цию компьютера можно назвать и тогда , когда
все возможности его процессора, памяти, видеокарты, шин для обмена
информацией дают возможность обрабатывать данные максимально бы-
стро, минуя простейшие простои, для каждого типа решаемых задач»:
a) конструктивной;
b) рабочей;
c) сбалансированной;
d) оптимальной;
e) логической.
2. Что влияет на приобретение компьютера той или иной конфигу-
рации:
a) устройства и программы компьютера должны приобретаться по вы-
сокой цене;
b) конфигурация компьютера должна соответствовать классу решае-
мых на нем задач;
c) конфигурация компьютера должны быть оснащена самыми мощ-
ными аппаратными средствами;
d) ничего не влияет;
e) необходимо учесть все приведенные факторы.
3. Базовая конфигурация компьютера включает в себя:
a) процессор, внутренняя память, внешняя память, устройства ввода
и вывода;
b) арифметико-логическое устройство, устройство управления, монитор;
c) микропроцессор, ВЗУ, ОЗУ, ПЗУ, монитор, принтер, мышь;
d) системный блок, монитор, клавиатура, мышь;
e) только системный блок и монитор.
4. Характеристиками этого устройства являются тактовая частота,
разрядность, производительность:
a) процессор;
b) материнская плата;
c) оперативная память;
d) жесткий диск
e) встроенная память.
5. На этом устройстве располагаются разъемы для процессора, опе-
ративной памяти, слоты для установки контроллеров:
a) жесткий диск;
b) канал
c) материнский трон
d) монитор
e) мышь
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Program p;
var ch:real;
i:integer;
begin
ch:=65000;
For i:= 1993 to 2013 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.
Для любых данных
Program p;
var year,y1:integer;
ch:real;
i:integer;
begin
Write('Введите начальный год: ');
Readln(year);
Write('Введите конечный год: ');
Readln(y1);
Write('Введите число населения: ');
Readln(ch);
For i:= year to y1-1 do
begin
ch:=trunc(ch*1.03);
Writeln('Численность населения в году №',i+1,' равна ',ch);
end;
end.