1) Выбрать подходящий цвет
2) Купить краску
3) Купить кисточку (если нет)
4) Прочитать инструкцию на краске (чтобы узнать сколько будет сохнуть краска)
5) Вскрыть банку с краской
6) Вскрыть кисточку
7) Покрасить забор
8) Закрыть банку с краской
9) Дождаться полного высыхания краски
10) Повторить пункты 5-9
8 цветов, на таблице подробно указано.
Var s:string;k:integer;
procedure SubInc(var s:string;var k:integer);
begin;
while pos('ea',s)<>0 do
begin;
delete(s,pos('ea',s),2);
inc(k);
end;
end;
begin;
readln(s);
if length(s)<>10 then exit;
SubInc(s,k);
writeln(k);
<span>end.</span>
запишем условие: N=4, строк=30, символов=70, страниц=5, I-?
решение: вычислим общее кол-во символов К=30*70*5=10500
определим вес одного символа N=2^i, 2^2=2^i, i=2бита
найдем объем информации I=K*i=10500*2=11000 бит
function Pow(A, St: Integer) : Integer - объявляется функция Pow, которая принимает 2 аргумента A и St типа integer, а также сама функция возвращает значение integer
Далее объявляется переменная I типа Integer
begin - начало тела функции
Result := 1; - переменной Result присваивается значение 1
Далее идёт ветвление:
Если St = 0 , то переменной Result присваивается значение 1
В противном случае идёт цикл от I = 1 до St, где каждый шаг увеличивает переменную Result в A раз
словом end; заканчивается тело функции
Короче говоря, данная функция возводит число A в степень St
