Program asd;
Const n=30;
var M:array[1..n] of integer;
i,k,s:integer;
BEGIN
Writeln('Заполните массив: ');
For i:=1 to n do
begin
Readln(M[i]);
end;
s:=0;
For i:=1 to n do
begin
If (M[i] mod 2=0) then
begin
inc(k);
s:=s+M[i];
end;
If (s mod 2=2) and (k mod 2=0) then
Writeln('Верно.')
else Writeln('Не верно');
end;
<span>END.</span>
Какое значение будет принимать переменная Х, после выполнения фрагмента программы: 17
Ответ:
<h3>Мы живем в мире, где массовая и целенаправленная слежка, нападения на людей и гражданское общество, притеснения членов уязвимых групп в цифровой среде и широкий спектр различных мнений и их выражение приводят к серьезным последствиям, в том числе к помещению людей под стражу, физическим нападениям и даже убийствам.</h3>
Uses crt;
const n=3;
m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
begin
a[i,j]:=random(15);
write(a[i,j]:3);
end;
end.
Заходите в биос, дальше переходим на вкладку boot и там ставим на самый верх CDROM(чтобы сначало считывало с диска, а потом с жесткого диска) дальше вставляем диск с Windows XP (перезагружаем компьютер) устанавливаем её, а потом на нё ставим Windows 7 (насчет удаления из биоса ОС не помню как делается, но так тоже получится должно)