(составить программу по pascal) дано двузначное число. определить, кратна ли сумма его цифр 6. подсказка: нужно отделить от числа единицы и десятки. чтобы узнать, сколько десятков в числе, нужно поделить число нацело на 10. результат присвоить какой-нибудь переменной. затем исходное число поделить с команды mod на 10 и результат записать в другую переменную.

Program zad6; var n, d, e, s: integer; begin readln (n); d: =n div 10; e: = n mod 10; s: =d+e; if s mod 6=0 then writeln (' сумма цифр числа кратна 6') else  writeln (' сумма цифр числа  не кратна 6'); end.

№1) изображение занимает объём в 60000 байт (или 58.59375 Кбайт).

№2) изображение занимает объём 1406,25 Кбайт (или 1.373 Мбайт).

№3) необходим объём видеокарты в 1,5 Мбайта.

Объяснение:

№1.

Дано:
K = 600 x 800 пикселей

N = 2

Найти: I
Решение:

N = 2^i

2 = 2^i  <=>  i = 1 бит/пиксель

I = K * i

I = 600 * 800 пикселей * 1 бит/пиксель = 480000 бит

I = 480000 / 8 = 60000 байт

ответ: I = 60000 байт.

№2.

Дано:

K = 600 x 800 пикселей

i = 24 бит/пиксель

Найти: I

I = K * i

I = 600 * 800 пикселей * 24 бит/пиксель = 11520000 бит

I = 11520000 / 8 / 1024 Кбайт = 1406,25 Кбайт

ответ: I = 1406,25 Кбайт.

№3.

Дано:

K = 1024 x 768 пикселей

N = 65536 цветов

Найти: I

N = 2^i

65536 = 2^i

2^16 = 2^i  <=>  i = 16 бит/пиксель

I = K * i

I = 1024 * 768 пикселей * 16 бит/пиксель = 12582912 бит

I = 12582912 / 8 / 1024 / 1024 Мбайт = 1,5 Мбайт

ответ: I = 1,5 Мбайт.

выводит на экран нечётные числа от 1 (включительно) до n (не включительно) в строку через пробел

Объяснение:

n = int(input('n = ')) - ввод числа n

for j in range (1, n, 2): - цикл от 1 (включительно) до n (не включительно) с шагом 2

1 (1 + 2 = 3 < n, да)

3 (3 + 2 = 5 < n, да)

5 (5 + 2 = 7 < n, да)

и так далее пока новый шаг не даст число равное или больше n (число >= n), после чего цикл закончится

print (j, end=' ') - вывод результата каждого шага цикла на экран в строку через пробел, т.к. строка (из-за параметра end=' ') заканчивается пробелом