Var x,y,z:integer;
begin
x:=5;
y:=-6;
if x>y then z:=x+y else z:=y-x;
Writeln(z);
end.
Сведения о системе;
2) средства диагностики компьютера
3) программа дефрагментации диска
4) средства коммуникации (коммуникационные программы)
5) диспетчеры файлов (файловые менеджеры)
6) средства сжатия данных (архиваторы)
7) антивирусные программы
8) средства обеспечения компьютерной безопасности
На паскале должно выглядеть так:
Начало программы, ввод данных.
<...>
if (y>=x*x) and (y<=5) and ((y>=x+5) or (x>=0)) then write('принадлежит') else write('не принадлежит');
end.
Число в 2 сс - 1000001
1000001(2)=2^6+2^0=65(10)
Ответ: 65
Значения n и s после каждого прохождения циклом даны в приложении.
Ответ: 180