Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
procedure vivod(n: integer);
begin
repeat
writeln(n mod 10);
n := n div 10;
until n = 0;
end;
А)2кб больше, тк если перевести 8192бита в кб, то получиться 1кб. 8192:8:1024=1
б)8 байт больше, тк если перевести 1 бит вбайт , то будет 0,125 байт.
1:8=0.125
Объяснение:
1 фото – упрощение.
2 фото – таблица истинности.
• – у меня данный знак не ставится, но выполняет свои действия, у себя его ставьте!
Компьютер
.................