Очевидно, что условие дано некорректно. 2 бита - это не "его количество информации", а количество бит, отводимых для информации о цвете каждого пикселя (точки). Два бита позволяют записать двоичное число от 0 до 3, следовательно картинка может содержать до четырех цветов. Информационный объем составит 80х2=160 бит. В одном байте 8 бит, поэтому в байтах объем составит 160/8=20 (байт).
Нужно написать программу как я понял:
Тебе нужно составить массив считающий сумму времени от первой строки до 40ой, первый элемент массива(arr[i]) = 1;
К каждому последующему элементу массива добавляешь 10%;
Создаешь еще одну переменную , допустим k = 0;
в нее записываем результаты;
arr[i]= arr[i]+ 10%;
k= k + arr[i];
, и все это нужно делать до времени i >=40;
Затем нужно вывести значение k;
Это и будет потраченное время
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>