1) на pascal ABC
var i:integer;
n:real;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if a[i]='a' then n+=1;
n:=(n/length(a)*100);
writeln(n:2:1);
<span>end.
2) на pascal ABC
var i,n:integer;
a:string;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]='p') and (a[i+1]='o') then n+=1;
writeln(n);
<span>end.</span></span>
K=512*128=65536
N=256
i=8
I=K*i=65536*8=524288бит=64Кбайт
<span>В результате выполнения программы на экран выводится массив, состоящий из 10 элементов. Каждый элемент представляет собой число из диапазона от 0 до 45.
А также выводится сумма всех элементов сформированного массива</span>
40 * 60 * 32 / 8 = 9600
Ответ: <span>г) 9600 байтов</span>
Для текста конечно меньше, а для картинки нужно писать на пиксель чтото типа : RGB("2")("2")("3")
А для текста например: а