Драйвер – это 1)специальный разъем для связи с внешними устройствами 2)программа для управления внешними устройствами компьютера 3)устройство для управления работой периферийным оборудованием 4)программа для высокоскоростного подключения нескольких устройств 20.Какое устройство предназначено для обработки информации? 1.Сканер 2.Принтер 3.Монитор 4.Клавиатура 5.Прцессор 20.Где расположены основные детали компьютера, отвечающие за его быстродействие? 1.В мышке 2.В наушниках 3.В мониторе 4.В системном блоке 15. Для чего предназначена оперативная память компьютера? 1.Для ввода информации 2.Для обработки информации 3.Для вывода информации 4.Для временного хранения информации 5.Для передачи информации 16. Программное обеспечение это… 1.совокупность устройств установленных на компьютере 2.совокупность программ установленных на компьютере 3.все программы которые у вас есть на диске 4.все устройства которые существуют в мире 17. Программное обеспечение делится на… (В этом во несколько вариантов ответа) 1.Прикладное 2.Системное 3.Инструментальное 4.Компьютерное 5.Процессорное 18. Что не является объектом операционной системы Windows? 1.Рабочий стол 2.Панель задач 3.Папка 4.Процессор 5.Корзина 19. Какое действие нельзя выполнить с объектом операционной системы Windows? 1.Выберите один из вариантов ответа: 2.Создать 3.Открыть 4.Переместить 5.Копировать 6.Порвать 20. С какой клавиши можно начать работу в операционной системе Windows? 1.Старт 2.Запуск 3.Марш 4.Пуск
Ответы
Уровень А
type
num=integer; { можно поменять на real, longint, даже char... }
procedure Swap(var a,b:num);
{ меняет местами значения a и b }
var
t:num;
begin
t:=a; a:=b; b:=t
end;
procedure Moving(var a,b,c:num);
begin
if a>b then begin
Swap(a,b);
if b>c then begin
Swap(b,c);
if a>b then Swap(a,b)
end
end
else begin
if b>c then Swap(b,c);
if a>b then Swap(a,b)
end
end;
var
a,b,c:num;
begin
Write('Введите три числа: '); Read(a,b,c);
Moving(a,b,c);
Writeln(a,' ',b,' ',c)
end.
Уровень В
function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;
var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3
type
num=integer; { можно поменять на real, longint, даже char... }
procedure Swap(var a,b:num);
{ меняет местами значения a и b }
var
t:num;
begin
t:=a; a:=b; b:=t
end;
procedure Moving(var a,b,c:num);
begin
if a>b then begin
Swap(a,b);
if b>c then begin
Swap(b,c);
if a>b then Swap(a,b)
end
end
else begin
if b>c then Swap(b,c);
if a>b then Swap(a,b)
end
end;
var
a,b,c:num;
begin
Write('Введите три числа: '); Read(a,b,c);
Moving(a,b,c);
Writeln(a,' ',b,' ',c)
end.
Уровень В
function Gcd(a,b: longint): longint;
{ Нахождение НОД }
var
i: longint;
begin
while b <> 0 do
begin
a := a mod b;
i := b; b := a; a := i
end;
gcd := a
end;
procedure ShortFraction(var m,n:longint);
var
k:longint;
begin
k:=Gcd(m,n);
m:=m div k; n:=n div k
end;
var
a,b:longint;
begin
Write('Введите числитель и знаменатель дроби: '); Readln(a,b);
ShortFraction(a,b);
Writeln('Дробь после сокращения равна ',a,'/',b)
end.
Тестовое решение:
Введите числитель и знаменатель дроби: 25 15
Дробь после сокращения равна 5/3
Var
a, b: integer;
function greatest_common_divisor(m, n: integer): integer;
var
modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then
greatest_common_divisor := n
else
greatest_common_divisor := greatest_common_divisor(n, modulo)
end;
procedure reduce_the_fraction(a, b: integer);
var
gcd: integer;
sign: string;
begin
gcd := greatest_common_divisor(a, b);
if a * b < 0 then
sign := '-';
writeln(sign, abs(a) / gcd, '/', abs(b) / gcd);
end;
begin
write('Enter two numbers: ');
readln(a, b);
reduce_the_fraction(a, b);
end.
a, b: integer;
function greatest_common_divisor(m, n: integer): integer;
var
modulo: integer;
begin
modulo := m mod n;
if modulo = 0 then
greatest_common_divisor := n
else
greatest_common_divisor := greatest_common_divisor(n, modulo)
end;
procedure reduce_the_fraction(a, b: integer);
var
gcd: integer;
sign: string;
begin
gcd := greatest_common_divisor(a, b);
if a * b < 0 then
sign := '-';
writeln(sign, abs(a) / gcd, '/', abs(b) / gcd);
end;
begin
write('Enter two numbers: ');
readln(a, b);
reduce_the_fraction(a, b);
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Написать по блок-схеме программу на языке Паскаль. Ниже фото
Автор: dvpered
1. Що буде виведено на екран після виконаннятакої програми:х=5L= (х >0)print(L)
Автор: Маркина Ворошилина
Задание по информатике.Нужно разгадать алгоритм увеличения числа 4;25;168...
Автор: bagramyansvetlana
Равные между собой значениями объемов информации является : a-300 мбайт , b-3072 кбайт , c-3072 мбайт , d-3 гбайт
Автор: ВладимировичСтанислав
Какую работу совершает двигатель мощностью 100 кВт за 53 минут?
Автор: Shteinbakh
Информатика! алгоритм сказки "репка"
Автор: versalmoda2971
1-2
2-5
3-4
4-4
5-2
6-1-2
7-4
8-6
9-4
Объяснение:
p.s что за бредовое задание