Program procenti;
Var Summ:real; k:integer;
begin
writeln('введите процент');
Readln(k);
Summ:=387*(0.2*k);
Writeln('Summ=', summ)
end.
Не знаю, зачем все так усложнять, по-моему нужно у одной хозяйки вычесть 1 л (5-1) молока и отдать его второй хозяйке (3+1), у них как раз станет по 4 л. Не знаю зачем тут еще 2-литровый бидон
1.
A = 0,5; B = -1,7;
Так как A больше B, то идем по ветке "else":
B = A;
B = 0,5.
Ответ: A = 0,5; B = 0,5.
2. Так как "6" больше "16", то идем по ветке "then":
C = 5.
Ответ: 5.
3. Если между выражениями стоит "and", то они оба должны выполняться (1), если хоть одно из них ложно, то программа выдаст "ложь" (0).
При x = 5 первое выражение будет истинным, но во втором ложным, т.к. пять не больше пяти. Две скобки не истинны - значение выражения "ложь" (0).
Ответ: 0.
4. mod - остаток от деления.
abs - модуль числа.
Если между выражениями стоит "or", то при одной или двух истинных выражениях программа на выходе дает "истину" (1). Если обе скобки ложны, то программа возвращает "ложь" (0).
При делении 45 на 2, остатком от деления является 1, а не 0. Скобка считается ложной.
При abs (45) число вправду больше 35, начит скобка истинна.
В итоге логическое выражение принимает значение "1".
Ответ: 1.
5. (x <= 2) or (x > 15).
Or - или.
1. D:\HOME\HELP\readme.txt
3. family.jpg, car.bmp, dog.gif
В данном случае используется не алфавитный подход к измерению информации (когда считаются символы), а содержательный - когда считаются события. Например, когда кидаем монетку у нас может получиться всего 2 события: орел или решка. Так как 2 - это 2 в степени 1, то это значит, что сообщение несет 1 бит информации. Так и здесь: после желтого у тебя возможно всего два события: красный или зеленый. Значит сообщение несет 1 бит информации.