При использовании 256-символьного алфавита для записи одного символа требуется log(2)256 = 8 бит = 1 байт. Количество символов = 15*32*64 Объем текста = 15*32*64*1 байт = 30720 байт = 30720/1024 Кбайт = 30 Кбайт
Программа на Паскале использует ф. Герона, которая в условии записана неверно.
Могут, массив этот вещественных чисел, разве там не может хранится 1?
Var
x, y, q, r: integer;
begin
read(x,y);
r := x;
q := 0;
while r >= y do
begin
r := r - y;
q := q + 1
end;
write(q,' ',r)
<span> end.</span>
Сссссссссссссссссссссссссссссссссссссссссссс