решить.
1. Минимальный объем информации это:
А) Байт
Б) Бит
В) Бод
Г) Буква
2. Операционные системы относятся к (…) классу программного обеспечения:
А) Прикладному
Б) Обязательному
В) Системному
Г) Служебному
3. В состав стандартного пакета программ для офиса не входит:
А) Браузер
Б) Текстовый процессор
В) Пасьянс
Г) Электронный органайзер
4. Системы создания презентаций изначально служили в качестве…
А) Средства создания иллюстрационного материала для публичных выступлений и
докладов
Б) Средства создания анимационных фильмов и роликов
В) Средства обучения приемам работы с мышью и клавиатурой
Г) Средства хранения изображений с их описанием
5. Что из перечисленного не является операционной системой:
А) Microsoft Windows 7
Б) Microsoft Outlook
В) iOS
Г) Android
6. Для обеспечения защиты от вредоносных программ необходимо установить
на компьютер:
А) Антивирус
Б) Брэндмауэр
В) Word
Г) Гирокомпас
7. Какой из представленных паролей соответствует требованиям
безопасности:
А) 13579
Б) 123qwe
В) aH!2TyN5
Г) [email protected]
type ar=array[1..n,1..m] of integer;
procedure p1(var a:ar);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
end;
var a:ar; i,j,max,im,jm:integer;
begin
Randomize;
p1(a);
max:=a[1,1]; im:=1; jm:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin max:=a[i,j]; im:=i; jm:=j; end;
writeln('max = a[',im,',',jm,'] = ',max);
end.
Пример:
2 -1 -7 0 7
3 7 -7 -7 3
-7 -5 -3 -2 5
9 -4 -4 -7 -7
max = a[4,1] = 9
var
a, b, c: integer;
{НОД двух чисед}
function gcd(a, b: integer): integer;
var t: integer;
begin
while b > 0 do
begin
t := b;
b := a mod b;
a := t;
end;
gcd := a;
end;
{Проверка трех чисел на взаимную простоту}
function isCoprime(a, b, c: integer): boolean;
begin
isCoprime := gcd(gcd(a, b), c) = 1;
end;
begin
read(a, b, c);
if isCoprime(a, b, c) then write('Числа взаимно простые')
else write('Числа не являются взаимно простыми');
end.