// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
Print('Нулей:', ArrRandom(ReadInteger('n='), -10, 10)
.Println.Where(t -> t = 0).Count)
end.
Var x, l: integer;
begin
readln(x);
l := Trunc(Log10(Abs(x)));
if l = 2 then
writeln (x)
else
writeln('число не трехзначное');
<span>end.</span>
Я решил в виде таблицы:
восьмилитровая - пятилитровая
8 - 0
3-5
3-0
0-3
8-3
6-5
6-0
1-5
1-0
0-1
8-1
4-5
4-0
0-4
8-4
7-5
Var a,b,c:integer;
Begin writeln('Введите длину в сантиметрах');
readln(a);
b:=a div 100;
c:=a mod 100;
writeln(a,' см = ', b, ',', c, ' м');
End.
Результат выполнения см. на рисунке
Вот вычисления: 11*1024=11 264 байта *8 = 90112 бит
90112/11264 = 8 бит; мощность алфавита такова = 2^8=256 символов.
Ответ: в)