var a,b:integer;
begin
readln(a,b);
if(a mod 2 = 0) and (a > b) then
writeln('Наибольшее, четное число: ',a)
else begin
if(b mod 2 = 0) and (b > a) then
writeln('Наибольшее четное число: ',b)
else
writeln('Не найдено');
end;
end.
<span>a = int(input('Введите кг яблок:'))
b = int(input('Введите цену этих кг:'))
k = int(input('Введите имеющиеся кг:'))
print(k/a*b)</span>
а)<em>8</em>"<u>бит</u>"
б)<em>0.026001</em>"<u>Кбайт</u>"
в)<em>1024</em>"<u>Кбайт</u>"-<em>1048576</em>"<u>байт</u>"-<em>8388608</em>"<u>бит</u>"
г)<em>1.5</em>"<u>Кбайт</u>"-<em>1536</em>"<u>бит</u>"