Var a: array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
readln(a[i]);
if (a[i] mod 2 = 0) and (a[i] > 0) then writeln ('Положительное и четное: ', a[i]);
end;
<span>end.
//Программа проверяет каждое число при вводе, т.е. если введённое число является положительным и четным, то программа его сразу же выводит.</span>
<span>В прямом - действие выполняется сразу после ввода командной строки. В программном - после компиляции, сборки всех действий автоматически - все описанные действия попорядку</span>
1) 400 * 32 = 12 800 бит = 1 600 байт
Ответ: 1 600 байт
2)5 * 3 = 15 дюймов - всё изображение
300 * 15 = 4 500 точек - всё изображение
4 500 * 16 = 72 000 бит = 9 000 байт
Ответ: 9 000 байт
Для начала приведем все в 10 сис-му счисления
1) 1100(2) = 12(10)
2) 65(8) = 53(10)
Получаем 12 + 53 + х = 110
откуда х = 110 - 12 - 53 = 45
Переведем полученное значение в восьмеричную систему
45(10) = 55(8)
Ответ: 55