Рисунок 2:
program ggg;uses GraphABC;var xc,yc,y,x,r: integer;beginwriteln('введи центр окружности');readln(xc,yc);writeln('введи радиус окоружности');readln(r);x:= xc;y:= yc;Brush.Color:= clRandom;circle(x,y,r);circle(x-r,y-r div 4,r div 4);circle(x+r,y-r div 4,r div 4);circle(x,y-r,r div 2);
end.
Почему бы самому не воспользоваться калькулятором?
раздел программист
BIN
10111+101 = 1 1100
110011+1110 = 100 0001
1111(умножить)11 = 10 1101
100011-110 = 1 1101
1011(умножить)101 = 11 0111
101100-101 = 10 0111
а вообще-то интересно самому прочитать разок внимательно как выстроен двоичный код,
легко и интересно, да и быстро будет в уме расписывать решения; самому человеку станет приятен процесс получения правильных решений (увлекательно)
+ гимнастика для нейронных связей мозга/память/сообразительность/логика...
# # Код на ruby 2.2.3p173
k = 0
begin
k = k + 1
k = k * 2
end until k > 10
p k
Ответ 14
<u>PascalABC.NET 3.3.5, сборка 1644 от 23.03.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var x:=ArrRandom(15,-50,50); x.Println;
var (sn,sp):=(0,0);
foreach var m in x do
if m>0 then sp+=m else sn+=m;
Writeln('Разница между суммой положительных и отрицательных ',sp-sn)
end.
<u>Пример</u>
38 -31 -30 50 -12 -27 -2 24 -20 29 46 24 6 32 -2
Разница между суммой положительных и отрицательных 373
Во вложении видно, что х - именно массив (array of integer)
Осинь обагрила свойим листтям лис.червона королева малюе краще за всих сестер . осинь-це пора витру та краси. листтячко падало на землю,що б почервив сад.в цьому роци осинь буде незабутня