1) сообщение записанное 250 символьного алфавита, содержит 25 символов.какой объем информации оно несет 2) для кодирование записи используется 15 знаков каждый знак кодируется одним и тем же минемальным возможным кол-во бит.чему равен информационный объем сообщения состоящий из 38 знаков. 3) сколько информации несет в себе сообщение о том что было угадано чисто от 534 до 953

1) 2^i=250; i=8; v=8*25=400; ответ: 400 бит. 2)2^i=15; i=4; 4*38=152; ответ:   152 бит. 3)количество возможных чисел равняется 420. 2^i=420 i=9 ответ: 9 бит

Программа определяет делится ли первое число на второе нацело​ и выводит частное:

var

 a, x, y: integer;

 b: real;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;;

 b := x / y;

 if a = 0

   then writeln('Первое число делится на второе, частное: ', b)

 else writeln('Первое число не делится на второе');

end.

Программа определяет делится ли первое число на второе нацело и не выводит частное:

var

 a, x, y: integer;

begin

 writeln('Введите два числа');

 read(x, y);

 a := x mod y;

 if a = 0

   then writeln('Первое число делится на второе')

 else writeln('Первое число не делится на второе');

end.

Написал по-быстрому 1)var a,b,s,p: real; begin readln(a); readln(b); s: =a*b; p: =(a+b)/2; writeln('s: = ',s); writeln('p: =  ',p); end. 2)var s: real; begin readln(s); if (s> =1000) then  s: =s-(s*0.1) writeln(s); end. 3)var i,a,n: integer; s: real; begin s: =0; readln(n); for i: =1 to n do readln(a); if (a  mod 2=0) then s: =s+a; writeln(s); end. 4)const n =10; var a: array[1..n] of integer; i: integer; s: real; begin s: =0; for i: =1 to n do  begin readln(a[i]); s: =s+(a[i]); end; writeln(s/n); end.