2. Отделка- это…
а) покрытие поверхности изделия чем- либо;
б) завершающая операция при изготовлении изделия;
в) устройство установок.
г)клейка обоев
3.Технология как наука занимается выявлением…
а) физических, биологических, химических закономерностей с определенной целью;
б) сфера деятельности человека;
в) нужной древесины и металла.
г)выявление
4. Основные во экономики- это
а) что производится, как производится, кем потребляется;
б)что потребляется, как производится, кто производит;
в)что производится, как потребляется, кто производит;
г)что потребляется, как производится, кто потребляет.
5. Моделирование-это
А) построение и изучение моделей реально существующих предметов...
Б) исследование объектов познания на их моделях;
В) исследование объектов познания на их моделях
Г) изучение моделей
6. Выберите лишний файл
а) .ppt;
б).txt;
в).ехе;
г).хls
7.Выберите файл соответствующий 1.txt
А)штриховой рисунок;
Б) тоновой рисунок
В) текст;
Г)таблица.
8. Какое из приведенных ниже устройств имеет наибольшую скорость записи и считывания информации?
А)жесткий диск (винчестер)
Б)гибкий диск (флоппи-диск)
В)флэш-карта
Г)компакт-диск
9. Назовите устройства ввода информации в персональный компьютер.
А)мышь
Б)сканер
В)принтер
Г)монитор
10. Технический рисунок-это
А) наглядное графическое изображение объекта, выполненное от руки в глазомерном масштабе...
Б) выполненное от руки в глазомерном масштабе...
В) эскиз
Г) выполненное от руки в глазомерном масштабе...
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
var m:array [0..14] of integer; i:integer;
function IsPositive(a:integer):boolean;
begin
result:=(a>-1);
end;
procedure work;
var min, max, count:integer;
begin
count:=0;
min:=m[0];
max:=0;
for i:=0 to 14 do begin
if IsPositive(m[i]) then begin
inc(count);
if m[i]>max then max:=m[i];
if m[i]<min then min:=m[i];
end;
end;
writeln('MAX: ', max);
writeln('MIN: ', min);
writeln('Count: ', count);
end;
begin
for i:=0 to 14 do begin
write('n: ');
readln(m[i]);
end;
work;
readln;
end.