Ответ б так как на книге не может быть музыки и видео фрагментов, это и есть мультимедиа
Скорее всего открыл: Файл -> Сведения
и посмотрел "Автор" и "Кем изменено" и эти значения оказались одинаковыми у нескольких человек.
Автор меняется правой кнопкой мыши, для изменения поля "Кем изменено" нужно внести какие-нибудь правки на своём компьютере и сохраниться.
4. Буфер обміну, зокрема, дуже корисна функція, адже набирати те саме речення по 3-4 рази втомлює та дратує водночас. З ним легко ввести одні й ті ж самі слова, наприклад, в таблиці, замість того, щоб набирати його вручну. Він корисний, коли потрібно розіслати оголошення в соц. мережі кільком друзям, аніж нервуватись над написанням кожного оголошення.
Вибачайте, але 5 я не зможу зробити, але хоча би з цим допомогла.
program
zadagha_1;
var
a:
array[1..8] of integer;
i,sum:integer;
begin
writeln('vvedite
8 chisel');
for i:=1 to
8 do read(a[i]);
sum:=0;
for i:=1 to
8 do begin
if i mod 2
<> 0 then begin
sum:=sum+a[i];
writeln(a[i]);
end;
end;
writeln();
writeln('summa
elementov c nechetnim N =', sum);
end.
program
zadagha_2;
var
b:
array[1..1000] of integer;
i,a,n:integer;
begin
writeln('vvedite
chislo - kolichestvo elementov massiva');
readln(n);
for i:=1 to
n do begin
b[i]:=random(1000);
write(b[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(a);
write
('elementi > dannogo chisla: ');
for i:=1 to
n do begin
if
b[i]>a then write (i:4);
end;
end.
program
zadacha_3;
var
a:
array[1..100] of integer;
i,n,k:
integer;
begin
n:=random(100);
for i:=1 to
n do begin
a[i]:=random(1000)-500;
write(a[i]:6);
end;
writeln();
writeln('vvedite
chislo');
readln(k);
writeln('v
massive chisly ',k, ' kratni: ');
for i:=1 to
n do begin
if (a[i] mod k = 0) and (a[i]>0) then begin
write(a[i]:6);
end;
end;
end.
1
а) 37 б) 343 в) 687
2
a) 59
двоичная: 111011
восьмеричная: 73
шестнадцатеричная: 3В
б) 216
двоичная: 11011000
восьмеричная: 330
шестнадцатеричная: D8