А) 6
б) 5
в) В первый же: 20*100=2000 центнеров
var
x,x1:integer;
begin
readln(x);
if (x div 10 + x mod 10 >= 10) then writeln ('Является')
else begin x1:=x; while (x1 div 10 + x1 mod 10 < 10) do x1:=x1+1; end;a
if (x div 10 + x mod 10 < 10) then writeln('Нужно увеличить на ',x1-x);
end.
<span>Способ кодирования информации с помощью того же алфавита ,что и исходный текст - я не знаю... не написано сколько всего букв
</span><span>Способ кодирования информации с помощью чисел - числовой;
</span>
С учетом того, что в имени файла желательно кратко отражать его содержимое, нежелательно называть файлы следующим образом:
презентация 015.ppt, Документ 2.doc, hrhrhrhr.jpg, безымянный 215.bmp