Решение в лоб :D, только желательно запускай прогу отдельно в папке.
Program out;
var fo:text;
begin
assign(fo,'output.txt');
rewrite(fo);
Writeln(fo,'Program AplusB;');
Writeln(fo,'var A,B: Integer;');
Writeln(fo,'begin');
Writeln(fo,' Assign(input,''input.txt'');');
Writeln(fo,' Reset(input);');
Writeln(fo,' Assign(output,''output.txt'');');
Writeln(fo,' Read(A,B);');
Writeln(fo,' ReWrite(output);');
Writeln(fo,' WriteLn(A+B);');
Writeln(fo,' Close(input);');
Writeln(fo,' Close(output);');
Writeln(fo,'end.');
close(fo);
end.
Кодирование,вдро,река,вено
Var
a, b, c, min : integer;
begin
read (a, b, c);
if (a <= b) and (a <= c) then min := a
else if (b <= a) and (b <= c) then min := b
else min := c;
write (min);
end.
Б- прав Боря так как в первом предложении 24 буквы а каждая буква содержит 8 бит информации из этого вытекает то что 1 предложение весит 24*8=192 бита
Мы сдвигаем вправо на 4 элемента C->F $C ->$C
сдвигаем вниз на 2 элемента 3->5 1->3
в D3 будет:
=F5+$C3