3. Имеется два запоминающих устройства: одно ёмкостью 64 Мбайт, другое – 2048 Кбайт. Укажите суммарную ёмкость обоих устройств в Kбайт. ответ: .
4. Устройство, выполняющее все арифметические и логические операции и управляющее другими частями компьютера, называется
А) Контроллером Б) клавиатурой В) монитором Г) процессором
5. Системные файлы имеют расширение…
А).doc, .txt Б).txt, .sys. В)sys, .bat Г).bat, .exe
6 Определите, какое из указанных имен файлов удовлетворяет маске c*s?.d??
А) class.d B) css.d C) classes.doc D)class.docx
7. В некотором каталоге хранился файл Газета, имевший полное имя
C:\Сентябрь\Выпуск1\Газета. В этом каталоге создали подкаталог Вёрстка и переместили в созданный подкаталог файл Газета. Каково стало полное имя этого файла после перемещения?
1) C:\Сентябрь\Вёрстка\Газета
2) C:\Вёрстка\Газета
3) C:\Сентябрь\Выпуск1\Вёрстка\Газета
4) C:\Вёрстка\Сентябрь\Выпуск1\Газета
program simple_num;
var n:integer;
function simple(num:integer):boolean;
var count, i:integer;
key:boolean;
begin
count := 0;
i := 1;
repeat
if num mod i = 0 then
inc(count);
inc(i);
until (i > num);
if count > 2 then
key := false
else key := true;
simple := key;
end;
begin
writeln('Введите натуральное число больше 1');
readln(n);
if n > 1 then
if simple(n) then
writeln('Число ',n, ' простое')
else writeln('Число ',n, ' непростое')
else writeln('введено число менее 1');
end.
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.