Что шоколадных стало 9. карамели стало 5. ирисок стало 4. А леденцов стало 3
Ответ: 3
Объяснение: 8 бит = 1 байт
Если размер предложения в байтах (!) оказался на 5 больше, то название нового животного вместе с запятой и пробелом - 5 байт, а без запятой и пробела - 5-1-1 байт = 3 байта, значит длина слова - 3 символа.
чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить
<span>readln(input,s);s:=s+' ';f:=0;</span>
<span>for i:= 1 to length(s) do begin</span>
<span>if s[i]<>' ' then r:=r+s[i];</span>
<span>if s[i]=' ' then begin k:=k+1;d[k]:=r;r:='';end;</span>
<span>end;</span>
<span>readln(input,n);</span>
<span>for i:= 1 to n do begin</span>
<span>readln(input,sait[i]);</span>
<span>readln(input,tegs[i]);</span>
<span>readln(input,pop[i]);</span>
соответственно и запись в файл write(f,s)
var i,n,p:integer;
a:array[1..10000] of integer;
begin
p:=1;
readln(n); {Вводится количество элементов массива}
for i:=1 to n do begin readln(a[i]); p:=p*a[i]; end; {Вводится каждый элемент массива и умножается на произведение ранее введённых}
writeln(exp(ln(p)/n)); {Вывод среднего арифметического - корень степени n из произведения всех элементов массива}
end.
Учёные используют Системное ПО
Дизайнеры используют Прикладное ПО
Веб.-Прогр. использует Системы прогр.
Методист использует Системное ПО
Дизайнеры используют Прикладное ПО