Dim i As Integer
Dim x As Integer
Dim Summ As Integer
i = InputBox("Введите целочисленное положительное число")
Summ = 1
For x = 0 To Len(CStr(i)) - 1
Summ *= CInt(Mid(CStr(i), x + 1, 1))<span>
</span><span>' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
</span><span>Next
MsgBox(Summ)
</span>
С помощью газет, интернета, различных соц. сетей, телевизора, радио,во время разговора с кем-либо
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Избыточность<span> — термин из </span>теории информации<span>, означающий превышение </span>количества информации<span>, используемой для передачи или хранения сообщения, над его </span>информационной энтропией<span>. Для уменьшения избыточности применяется </span>сжатие данных без потерь<span>, в то же время </span>контрольная сумма<span> применяется для внесения дополнительной избыточности в поток, что позволяет производить исправление ошибок при передаче информации по каналам, вносящим искажения (спутниковая трансляция, беспроводная передача
</span>
<span>1 байт [Б] = 0.0009765625 килобайт </span>