// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:array of integer := (0,12,3,-5,-6,4,9,0,8);
var sum:= 0;
for var i := 3 to 7 do
if a[i]>5 then
sum:=sum+a[i];
writeln (sum);
end.
Ответ: 9
Правильные ответы:
1)В
2)D
3)D
var i, n: integer;
begin
read(n);
for i:=1 to 10 do
writeln(n,'*',i,'=',n*i);
end.
24 * 2 = 48 байта - В Unicode каждый символ кодируется 2 Байтами
Зная, что в 1 байте содержится 8 бит делаем следующее:
48 байта * 8 = 384 бит
<span>Ответ: 384 бит</span>
Var A: array[1..15] of integer;
.........................................