1) 55 10000111
2) 52 10010111
3) 333 111101001010
4) CF 1111110000100001
5) 3D29C
6) 1761221522
С какими списками? Я не знаю по какому учебнику вы учитесь)
Если хочешь вывести текст
write('текст'); //Ковычки одинарные
если ты хочешь вывести переменную то без кавычек
a := 1;
write(a);
Также можешь добавить в конец "ln" т.е. writeln(...); после того как выведет он перенесет на следующую строку
Оператор ввода:
Read(переменная); read(a); read(b);
Также и тут можешь перенести строку:
Readln(...);
<span>j:=0;
for i := 1 to n do
begin
if (b[j]>0) and (b[j] mod b[j]=0) and (b[j] mod 1 =b[j]) then
begin
inc(j);
b[j] := a[i];
end;
j = 0 , массив описан как array[1..n]
кроме того, массив b изначально не задан, поэтому будет еще и деление на ноль.
</span>
1 Кбайт=1024 байт= 1048576 бит. Столько же у нас символов. Тк 1байт=8 бит, 1 символ=8бит.