1)01001100=0•8+1•8+0•8+0•8⁴+1•8³+1•8²+0•8¹+0•8°=0+262144+512+8=262664
2)00010101=0•8+0•8+0•8+1•8⁴+0•8³+1•8²+0•8¹+1•8°=0+0+0+4096+0+64+0=4160
Информатика - наука, изучающая закономерности протекания процессов, передачи, хранения и обработки информации в природе, обществе, технике, а так же способы автоматизации этих процессов с помощью компьютера.
A: integer;
begin
read(a);
if (a > 99) and (a < 1000) and (not odd(a)) then
write('true')
else
write('false');
end.
Без проверок и прочего, все как написано в задаче. Если нужно было с проверками - напишите, переделаю :)
program Project1;
var
TotalA, TotalB, SoldA, SoldB : integer;
priceA, priceB, sum: real;
begin
Write(' Введите цену товара "А":');
Readln(priceA);
Write(' Введите количество товара "А" в начале рабочего дня:');
Readln(TotalA);
Write(' Введите количество проданного товара "А":');
Readln(SoldA);
Write(' Введите цену товара "Б":');
Readln(priceB);
Write(' Введите количество товара "Б" в начале рабочего дня:');
Readln(TotalB);
Write(' Введите количество проданного товара "Б":');
Readln(SoldB);
sum:= ((priceA*SoldA)+(priceB*SoldB));
writeln('Выручка от продажи двух товаров за день:', sum:5:2);
readln;
end.
32 * 1024 * 768 бит = 32 * 1024 * 768 / 8 байт = 32 * 1024 * 768 * 8 / 1024 / 1024 = 3 Mb