Var x,y,a,b:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ');
ReadLn(y);
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
if ((a<x)and(b<y))or((b<x)and(a<y)) then Write('Можно')
else Write('Нельзя');
End.
<span>Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин</span>
"оно не оканчивается на ноль". или, как вариант: "оно не делится и на десять"
по Моргану и другим правилам ... =–А\/–В\/А=(–А\/А) \/–В=1\/–В=1