Первая задачка.
Набрать кувшин 8 л.
Отлить 3 л во второй.
Вылить из него.
Из оставшихся 5 л в большом опять налить в маленький.
Вылить из него.
Остатки 2 л из большого налить в маленький.
Получится пустой большой и маленьки с 2 л.
Набрать снова полный большой.
Долить в маленький недостающий 1 л до трех.
В большом останется 7 л.
Вторая задачка решается аналогично.
Ставятся песочные часы и на 3 мин и на 8 мин
одновременно. Через 3 мин. маленькие часы
переворачиваются, большие продолжают работать,
таме ще 5 мин. Еще через 3 мин маленькие
переворачиваются, большие продолжают работать,
там еще 2 мин. Через 2 мин большие опустошились
и переорачиваются, а в маленьких еще 1 мин.
Через 1 мин маленькие опустошаются, а в
больших еще 7 мин. В это время включается варево.
Когда большие часы опустошились мин,
варево выключается.
Элекиср бессмертия готов.
var
a, b, x, s, c, t:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите x');
readln(x);
if x<=a then
begin
s:=sin(x);
writeln ('Синус равен ', s);
end
else
writeln ('Синус вычислить нельзя, так как равенство не равно ', x, '<=', a);
if (a<x) and (x<b) then
begin
c:=cos(x);
writeln ('Косинус равен ', c);
end
else
writeln ('Косинус вычислить нельзя, так как равенство не равно ', a, '<', x, '<', b);
if x>=b then
begin
t:=tan(x);
writeln ('Косинус равен ', t);
end
else
writeln ('Косинус вычислить нельзя, так как равенство не равно ', x, '>=', b);
end.
2^8=256, значит нужно 8 бит на символ
32*64*5*8/8/1024