Var _500,_100,_50,_10,money_get:integer;beginwriteln('Введите стоимость товара');readln(money_get);while(money_get mod 10 <> 0) do begin writeln('стоимость должна делиться на 10, попробуйте еще раз'); readln(money_get); end;while (money_get>=500) do begin _500:=_500+1; money_get:=money_get-500; end;while (money_get>=100) do begin _100:=_100+1; money_get:=money_get-100; end;while (money_get>=50) do begin _50:=_50+1; money_get:=money_get-50; end;while (money_get>=10) do begin _10:=_10+1; money_get:=money_get-10; end; writeln(_500,': 500 рублей',_100,':100 рублей',_50,':50 рублей',_10,':10 рублей');
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 = ответ:
// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b, c) := ReadReal3('Введите стороны треугольника через пробел:');
if (a + b > c) and (a + c > b) and (b + c > a) then
begin
var p := (a + b + c) / 2;
Println('Площадь треугольника равна',
Sqrt(p * (p - a) * (p - b) * (p - c)))
end
else Println('Треугольник с такими сторонами не существует')
end.