Составьте программу нахождения значение функции z = y*x. Нужна программа в паскаль нужно

program funct;

var

 y, x : integer;

Begin

 write('y = ');

 readln(y);

 write('x = ');

 readln(x);

 writeln('z=y*x');

 writeln('z=', y, '*', x);

 writeln('z=', y*x);

end.

Объяснение:

PascalABC.NET

Пример работы:

2^i = 128

i = 7 бит

800 * 7 = 5600 бит

5600 : 8 = 700 байт

700 : 1024 = 0,684 килобайт.

2^i=64, i=6 бит

для кодирования 1 символа нужно 6 бит

8775 * 8 = 70200 бит занимает сообщение

70200 : 6 = 11700 символов в сообщении

найдем х - количество символов в строке

6 * 30 * х = 11700

180х = 11700

х = 65

ответ. в строке 65 символов.