Если по программе 1-4 класс, то ответ курсор. Буква Р- 18 по счету
var
i, k: integer;
begin
i:= 100;
k:= 0;
while i < 1000 do
begin
if (i * 2 mod 10 = 8) and (i * 3 mod 10 = 4) then write(i, ' ')
else k:= k + 1;
i:= i + 1;
end;
if k = 900 then writeln('Таких чисел не существует!');end.
ОБЪЁМ информации во втором тексте будет в 2 раза больше, чем в первом, т.к. для кодирования символа 32-значного алфавита достаточно одного байта, тогда как 1024-символьному необходимо 2 байта под каждый символ.
Для просветления курить вики. статья -- "Кодовая страница"
Все что doc, и txt это текстовый файл, графические это jpg wav, а программы bmp, exe