Var x, y: real;
const centerX = 4; centerY = 4; distance = 3;
begin
writeln('Введите координаты точки x, y: ');
read(x);
read(y);
writeln(abs(centerX - x) + abs(centerY - y) <= distance)
end.
Var
<span>
R1, R2, R3, S1, S2, S3: Integer;</span><span>
begin</span><span>
writeln('Введите размеры
рации и чемодана');</span><span>
readln(R1, R2, R3, S1, S2, S3);</span><span>
if ((R1 < S1) and (R2 < S2)
and (R3 < S3)) or</span><span>
((R3 < S3) and (R2 < S1) and
(R1 < S2)) or</span><span>
((R1 < S1) and (R2 < S3) and
(R3 < S3)) or</span><span>
((R2 < S2) and (R1 < S3) and
(R3 < S1)) or</span><span>
((R2 < S1) and (R3 < S2) and
(R1 < S3)) or</span><span>
((R1 < S2) and (R3 < S1) and
(R2 < S3)) then</span>
<span>WriteLn('ПОМЕЩАЕТСЯ')</span><span>
else</span>
<span>WriteLn('НЕ ПОМЕЩАЕТСЯ');</span>
<span>end.</span>
1000001001(2) – 111110100(2)=10101
ВО ПЕРВЫХ ДОПИСЫВАЙ ЗАДАНИЕ! ЕВЛИ ЗАДАЧА ТА ЧТО НИЖЕ, ТО ТЫ В ДОЛГУ!
<span>Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 75 секунд. Если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, то общее время передачи (включая упаковку и распаковку) составит 30 секунд. При этом на упаковку и распаковку данных всего ушло 15 секунд. Размер исходного документа 20 Мбайт. Чему равен размер упакованного документа (в Мбайт)?
РЕШЕНИЕ:
</span>Чтобы передать документ без упаковки, нужно 20Мб передать за 75 секунд
Чтобы передать документ с упаковкой, нужно XМб передать за 15 секунд, т.к. 15 секунд ушли на упаковку и распаковку.
Скорость канала одна и та же.Найдем скорость
V=20Мб/75с=4/15Мб/с;
Теперь найдем размер упакованного документа
Х=4/15*15=4Мб
Ответ:4Мб
