?>
1. Информатика дегеніміз қандай ғылым? * а) Ақпаратты өңдеу ғылымыб) ЭЕМ жұмысы мен қоғам өмірінде жинау, жинақтау, сақтау мен берузаңдары мен тәсілдері туралы ғылымв) Ақпаратты білдіру мен есте сақтау ғылымыг) ОЖ түрлерін зерттейтін ғылым2. Қандайда да бір тілдің көмегімен ақпаратты ұсынуды не деп атаймыз? * а) Компьютер арқылы хабарлауб) Хабарлаув) Кодтауг) Мәтінмен хабарлау3. Кейбір деректерге қарағанда есепшоттың жасы қанша жыл? * а) 1000 - 5000б) 3000 - 4000в) 2000 - 6000г) 2000 - 50004. Блез Паскаль неше жасында, қай жылы механикалық есептеумашинасын құрастырды? * а) 19 жасында 1642 жылыб) 25 жасында 1782 жылыв) 30 жасында 1862 жылыг) 20 жасында 1645 жылы5. Дүние жүзі бойынша алғашқы болып Бэббидж машинасына программажазған, бірінші программист? * а) 1848 жылы Говард Айкенб) 1846 жылы Ада Лавлейсв) 1784 жылы Джон Фон Нейманг) 1865 жылы Блез Паскаль6. ENIAC - тың салмағы және оның электрондық лампасы нешеу? * а) 25 т және 20000б) 30 т және 25000в) 30 т және 18000г) 40 т және 180007. ENIAC деп аталатын бірінші электрондық есептеуіш машина қай жылы, қайда, қай университетте жасалды? * а) 1946 жылы АҚШ - тың Пенсильвания университетіндеб) 1971 жылы Ресейдің Ломоносов университетіндев) 1962 жылы АҚШ - тың Оксфордс университетіндег) 1945 жылы Қазақстанның Назарбаев университетінде8. Мыс фольгамен қапталған шыны текстолиттен тұратын дербескомпьютердің негізгі тақшасы? * а) Кэшб) Мониторв) Дискіг) Аналық тақша19. Жан - жағына еркін қозғалатын және панелінде әрекеттерді орындауғаарналған бірнеше батырмалары бар рычагты манипулятор? * а) Тінтуірб) Пернетақтав) Джойстикг) Монитор10. Көптеген математикалық және логикалық амалдарды орындайтыннегізгі микросхема? * а) Джойстикб) Аналық тақшав) Кэшг) Процессор11. Компьютердің ішкі құрылғыларының арасында сигнал алмасуды іскеасыратын өткізгіштер жиынтығы? * а) Аналық тақшаб) Шиналарв) Кэшг) Жедел жад12. Компьютердің мәліметтерді өңдеу жұмысын ұ жүйесі - * а) Операциялық жүйеб) Командалық интерфейсв) Жүйелік программаг) Қолданбалы программа13. Қолданбалы программалық жабдықтама не үшін қажет? * а) Ақпараттарды кодтауға арналғанб) Мәліметтерді таратуғав) Мәліметтерді өңдеудің нақты есептерін шешуге арналғанг) Жүйені орнатуға арналған14. Windows 7 операциялық жүйесі қашан пайда болды? * а) 2008 жылы қараша айындаб) 20012 жылы желтоқсандав) 1014 жылы қазан айындаг) 2010 жылы мамыр айында15. Word – та мәтінде кіші әріптерді бас әріптерге немесе бас әріптердікіші әріптерге ауыстыру үшін келесі команданы қолданамыз: * а) Формат – Регистрб) Вид – Регистрв) Файл – Параметры страницыг) Вставка – Бас/Кіші әріптер16. Тез арада кез - келген мәтіндерді өрнектеуге арналған элементтікмәтіндердің форматы: * а) Құжаттың стиліб) Құжаттың түрів) Құжаттың типіг) Құжаттың форматы17. Word – та мәтін тізімінің үш түрі бар: * а) Маркерленген, нөмірленген, көпдеңгейлікб) Маркерленген, нөмірленген, графиктікв) Маркерленген, графиктікг) Маркерленген, сандық18. Word – та колонтитул беттің қай бөлігінде жазылады: * а) Ортасынан және сол жағынанб) Жоғарыдан және төменненв) Оң жағынан және сол жағынанг) Ортасынан және оң жағынан19. Word мәтін процессорында сол жақ немесе оң жақ шегініс және абзацшегінісін қою үшін келесі тізбекті пайдаланамыз: * а) Формат – Абзацб) Вид – Абзацв) Формат – Отступг) Правка – Отступ20. Мәтінді ақпаратты магниттік жеткізушіге жазатын құжаттың этапықалай аталады: * а) Мәтін теруіб) Мәтінді түзетув) Мәтінді форматтауг) Мәтінді сақтау
Ответы
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.