1. информационный объем сообщения длиной 144 символов составляет 180 байтов. сколько символов в алфавите?

один символ этого сообщения занимает

180 * 8 бит / 144 = 10 бит

в 10 битах мы можем закодировать символа

значит в алфавите не более 1024 символов

var a: array [1..5] of integer; s,i: integer; begin      for i : = 1 to 5 do  begin      writeln('a[',i,']=');       read(a[i]);         s: =s + a[i]  end;   writeln('s=',s); end.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end