Статья, на­бран­ная на компьютере, со­дер­жит 64 страницы, на каж­дой странице 72 строки, в каж­дой строке 32 символа. Опре­де­ли­те размер ста­тьи (в Кбайтах) в кодиров­ке КОИ-16, в ко­то­рой каждый сим­вол кодируется 16 битами. Единицу измерения писать не нужно.

2415919104

Объяснение:

ЧТОООООООООООООООО?

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

var

  i,n,a: integer;

begin

  readln(n);

for i: =1 to n do

begin

  read(a);

if (a mod 3=0)and(a mod 5> 0) then write(a,' ');

end;

writeln;

end.