Сообщение занимает 3страницы по 25строк.в каждой строке записано по 60 символов.сколько символов в использованном алфавите,если все сообщение содержит 1125 байтов?
type TForm1 = class(TForm) Image1: TImage; Button1: TButton; OpenDialog1: TOpenDialog; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin if OpenDialog1.Execute then begin Image1.Picture.LoadFromFile(OpenDialog1.FileName); Image1.Stretch:=true; Image1.Left:=form1.Width div 2-image1.Width div 2; Image1.top:=form1.Height div 2-image1.Height div 2; end end;
// PascalABC.NET 3.3, сборка 1542 от 05.10.2017 // Внимание! Если программа не работает, обновите версию!
begin var c1:=ReadlnChar('Введите первый символ:'); var c2:=ReadlnChar('Введите второй символ:'); Print(c1); if c1>c2 then Print('>') else if c1=c2 then Print('=') else print('<'); Println(c2) end.
Примеры Введите первый символ: a Введите второй символ: b a < b
Введите первый символ: d Введите второй символ: d d = d
Введите первый символ: z Введите второй символ: m z > m
Введите первый символ: q Введите второй символ: Q q > Q
Найти: N
Решение: N=i^2 i=I/k
i=9000/4500=2 бита
N=2^2=4 символа
ответ:4 символа