Program dfg;
var x, y: integer;
begin
read(x,y);
If (y<=(2-x*x)) and ((y>=x) or (x>=0)) then write ('да') else write ('нет');
end.
Со сложным условием
А) инверсия а
б) инверсия б
в) а×б
г)
д) а инверсия б
Сделай папрезентацию на тему компьютер, опиши все его состовляющие, и без чего он не сможет работать. ИЛи на тему Современное вооружение России
//PascalABC.Net 3.2
begin
var a:=arrrandom (readinteger('n ='), -15, 15); a.Println;
var b: array of integer;
for var i:=0 to length(a)-1 do if not((a[i]<0) or ((a[i] mod 8)=0)) then begin
setLength (b, length(b)+1);
b[length(b)-1]:=a[i]
end;
b.Print;
end.
1. Пусть x - количество зеленых яблок.
I = log(2)[1/(x/36)] = log(2)[36/x] = 2; 36/x = 2^2; x = 9
2. I = log(2)[1/(15/60)] = log(2)[4] = 2 бита
3. I = log(2)16 = 4 бита