<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,0,50); a.Println;
Writeln('S=',a.Sum)
end.
<u>Пример</u>
10 44 42 31 39 9 1 24 19 43 7 43 22 28 24 43 39 48 42 31 29 6 18 12 27 50 22 46 18 4 28 27 14 22 33 49 0 13 11 31 10 4 21 24 30 33 25 26 2 3 15 40 8 23 50 3 26 29 4 40 37 6 6 15 15 30 28 50 46 25 43 26 36 10 20 25 36 44 33 45 24 47 43 15 40 38 19 41 23 29 23 21 8 22 44 4 48 6 9 50
S=2595
1 задание
101011 + 101001 = 43+41 (перевел в десятичную) =84 в десятичной или 1010100 в десятичной
тоже сделаем с вычитанием
10101111-111111 = 175-63=112 или 1110000
2 задание
переведем все числа в десятичную систему
1010101 = 85
59(16) = 89
130(8) = 88
86(10) = 86 уже в десятичной
Ответ: 1010101, 86(10), 130(8), 59(16)
Задание 3
1. числа 160 не может быть в 4 степени, проверьте может опечатались.
2. 402(6)=146(10) < 400(8)=256(10)
3. 78(16)=120(10) < 167(8)=119(10)
Ответ:
Если вопрос дальше такой:
который закрашивает клетки:
а) ниже каждой закрашенной клетки.
б) выше и ниже каждой закрашенной клетки. То ответ:
А) вниз пока (справа свободно) закрасить вправо конец б) вверх пока (справа свободно) закрасить вправо вниз вниз пока (слева свободно) закрасить влево конец
Відповідь:
Пояснення:
001010011100101+000110101101=0001011010010010
1001*1111=10000111
001101111+000101010111=0000000111000110
001010011-111001=11010
program raf105;
var x,y,z:integer;
begin
x:=random(10,99);
writeln('Компьютер выбрал число ',x);
y:=random(1,9);
writeln('Компьютер выбрал число ',y);
z:= x mod 10;
x:= (x-z)*10;
z:= (x+z)+y*10;
writeln('Компьютер переместил второе число в середину первого. Результат: ',z);
end.