А где задания?
Хотя бы фото отправить надо.
var n, p: integer;
begin
read(n);
p := 1;
repeat
p := n mod 10 * p;
n := n div 10;
until n = 0;
write(p)
end.
Процессор, постоянная память, USB-порт, оперативная память
Graph-Примитивы, перья и кисти, шрифты, графич.окно, события мыши и клаиатуры
objects-создание объектов, управление свойствами объектов
При использовании 8 символов для хранения одного символа требуется log(2)8 = 3 бита. Объем сообщения = 20*8 = 160 бит = 20 байт