Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.

0 0

4 года назад

Проверьте задачу паскаль и помогите если не правильноСама задача: Даны натуральные числа n, A1...An. Определите количество члено

yanaw [7]

Ответ:

программа работает верно

Объяснение:

0 0

3 года назад

Помогите с нфопматикой. Перевод чисел

Ироида [5.8K]

1) 110011; 63; 51; 33

2) 11010101; 325; 213; D5

3) 1001010010; 1122; 594; 252

4) 1011111; 137; 95; 5F

5) 11101; 35; 29; 1D

6) 10010110; 226; 150; 96

7) 101011001; 531; 345; 159

8) 11010110; 326; 214; D6

0 0

3 года назад

Перевести в десятичную систему: 10001,01 в двоичной системе. Перевести в восьмиричную систему: 55 в десятичной системе вычислить

2545246

10001,01 в двоичной системе = 69 в десят.

55 в десятичной системе = 67 в восмеричной

110111 в двоичной системе+ 1011 в двоичной системе) *101 в двоичной = <span>101001010</span>

0 0

2 года назад