1)Алгоритм шифрует блок 64 бита. На выходе получается блок 64 бита. То что данные зашифрованы не видно. И не должно быть видно. Другое дело, что часто бывает видно, что данные НЕ зашифрованы, когда они символьные, например. Классическая книга: Брюс Шнайер. Прикладная криптография. Там этот алгоритм описан и приведена его реализация на языке си 2)Четыре класса должны покрасить забор вокруг школы. Классы Б.В.Г могут выполнить эту работу за 3часа. Классы А, В, Г могут выполнить эту работу за 2часа. Если же будут работать классы А и Б, то работа будет выполнена за 5часов. За какое время могут покрасить забор все четыре класса? Решение: p (производительность) t (время) А (работа) Б + В + Г р(б) + р(в) + р(г) = 1/3 3ч. 1 А + В + Г р(а) + р(в) + р(г) = 1/2 2ч. 1 А + Б р(а) + р(б) = 1/5 5ч. 1 А + Б + В + Г ?ч. 1 Прибавим все р, получим: 2р(а) + 2р(б) + 2р(в) + 2р(г) = 2(р(а) + р(б) + р(в) + р(г)) = (р(а) + р(б) + р(в) + р(г) = Тогда время t = ответ:
Для кнопки (Button1) процедура onClick
Створюємо поле вводу
Створюємо текстове поле
procedure TForm1.Button1Click(Sender: TObject);var x: real;begin x:= StrToFloat(Edit1.Text);if Edit1.Text = '1'then Label1.Caption:= 'Январь';if Edit1.Text = '2'then Label1.Caption:= 'Февраль';if Edit1.Text = '3'then Label1.Caption:= 'Март';if Edit1.Text = '4'then Label1.Caption:= 'Апрель';if Edit1.Text = '5'then Label1.Caption:= 'Май';if Edit1.Text = '6'then Label1.Caption:= 'Июнь';if Edit1.Text = '7'then Label1.Caption:= 'Июль';if Edit1.Text = '8'then Label1.Caption:= 'Август';if Edit1.Text = '9'then Label1.Caption:= 'Сентябрь';if Edit1.Text = '10'then Label1.Caption:= 'Октябрь';if Edit1.Text = '11'then Label1.Caption:= 'Ноябрь';if Edit1.Text = '12'then Label1.Caption:= 'Декабрь';end;
end.