1 МБ = 1024 Кбайт
0,5 МБ = 512 Кбайт
1024 * 15 + 512 = 15872 Кбайт
Ответ: 15872 Кбайт
1.
var
a : integer;
begin
write('введите число: ');
readln(a);
if a mod 2 = 0 then writeln('четное') else writeln('нечетное');
end.
2.
var
x, y : integer;
begin
write('введите x=');
readln(x);
y := x;
writeln('y=', y);
end.
во второй задаче не было указано как считать Y поэтому я просто сделал его равным X. нужную формулу напишешь сам
===== PascalABC.NET =====
begin
var (a, b, x) := ReadInteger3;
if x = 1 then
Print('Сумма', a + b)
else if x = 2 then
Print('Разность', a - b)
end.
я владею, тока ты задание напиши
B=642.25(8) = 1A2<span>.54(16)
a+b= 5C1.5(16) + </span>1A2.54(16) = 763<span>.A4(16)</span>