Информационное сообщение объемом 375 байтов состоит из 500 символов. каков информационный вес каждого символа этого сообщения? какова мощность алфавита, с которого было записано это сообщение?

375*8=3000 бит   3000/500=6 бит  2^6=64 символа в алфавите

Думаю, что отдельно писать программу лишь для оператора присвоения как-то тупо, поэтому объединим с условным оператором.

№3 а) б)

var

x : integer;

begin

writeln('Введите положительное число: ');

readln(x);

if x < 0 then //условный оператор

write('Вы ввели отрицательное число!')

end.

№4 а)

var

month : integer;

begin

readln(month);

if (month = 1) or (month = 2) or (month = 12) then

writeln('зима')

else if (month = 3) or (month = 4) or (month = 5) then

writeln('весна')

else if (month = 6) or (month = 7) or (month = 8) then

writeln('лето')

else if (month = 9) or (month = 10) or (month = 11) then

writeln('осень')

else

writeln('неверно введен номер месяца');

end.

№4 b)

//давайте посчитаем количество цифр в числе

var

counter, x : integer;

begin

readln(x);

counter := 0;

while x > 0 do

begin

counter := counter + 1;

x := x div 10;

end;

write('Количество цифр: ',counter);

end.

Что-то я сложные программы какие-то написал, если надо попроще, то напиши в комменты)

Программы правда выводят не просто число, т.к. это не очень понятно получается, поэтому сначала выводится название того, что именно мы сосчитали.

Когда проверите работу программы, просто уберите текстовую часть вывода в конце, и тогда будет как в задаче- выводится только одно число.

1) кратные 4 и не кратные 5 (количество):

цел ч,п,н,к=0

алг

нач

вывод "количество чисел в последовательности= "

ввод п

вывод "ввод последовательности натуральных чисел:", нс

нц для н от 1 до п

вывод "число ", н, " из ", п, " = "

ввод ч

если mod (ч, 4) = 0 и mod (ч, 5) <> 0 то к := к+1 всё

кц

вывод "количество чисел кратных четырём, но не кратных пяти= ", к

кон

2) кратные 6 и оканчивающиеся на 6 (сумма):

цел ч,н=0,с=0

алг

нач

вывод "ввод последовательности натуральных чисел:", нс

нц

н := н+1

вывод "число №", н, " = "

ввод ч

если mod (ч, 6) = 0 и mod (ч, 10) = 6 то с := с+ч всё

кц при ч=0

вывод "сумма чисел кратных шести и оканчивающихся на шесть: ", с

кон