Var
a, b, x, y, z: real;
begin
readln(a, b, x, y, z);
if ((a < x) and (b < y)) or
((a < x) and (b < z)) or
((a < z) and (b < y)) then
writeln(true)
else writeln(false);
end.
2) Если считать, что 1 бит = 2 цвета, 8 бит= 1 байт = 256 цветов (то есть 2 в 8 степени) , 1 Мбайт = 2 в 20 степени = <span> 1 048 576 цветов и умнажаем все на 64=67108864 цветов. </span>
Считай варианты.
Плюшка с кофе.
Плюшка с соком
Плюшка с кефиром
Плюшка с чаем.
И столько же только с бутербродом вместо плюшки.
И того 8 вариантов
Var i,n,k:integer;
begin
writeln('i':4,'i*i':6);
for i:=1 to 10 do begin
n:= i * i;
writeln(i:4,n:5);end;
<span>end.</span>