Var a,b,c,i:integer;
begin
i:=0;
Write('1-число='); Readln(a);
Write('2-число='); Readln(b);
Write('3-число='); Readln(c);
if a=0 then i:=i+1;
if b=0 then i:=i+1;
if c=0 then i:=i+1;
Writeln(i,' чисел равных нулю');
end.
На данном рисунке изображены числа в виде таблицы с одной колонной и десятью строками.
var i : integer;
p : longint;
BEGIN
p := 1;
for i := 903 to 999 do
p *= i;
writeln(p);
//=========================
p := 1; i := 903;
while i <= 999 do begin
p *= i;
Inc(i);
end;
writeln(p);
//==========================
p := 1; i := 903;
repeat
p *= i;
Inc(i);
Until i > 999;
writeln(p);
END.
Однако стоит отметить, что полученное произведение довольно большое, в следствии чего, оно не влезит ни в какой тип переменных.
Цепочкой из i нулей и единиц можно закодировать не более, чем 2^i различных номеров, i численно совпадает в количеством информации в битах.
Так как 2^7 = 128 < 240 < 256 = 2^8, то минимальная подходящая длина кода — 8 бит.
После того, как финиш прошла половина лыжников, т.е. 240 : 2 = 120, устройство запишет 8 бит * 120 = 120 байт информации.