Var a,b,s: integer;
begin
write('Введите количество чисел в последовательности: ');
readln(a);
for b := 1 to a do
begin
write('Введите число: ');
readln(a);
if a mod 3 = 0 then
s:=s+a;
end;
writeln('Сумма чисел, кратных 3, равна: ',s)
end.
нарисовать блок схему

ответ:

объяснение:

    используем формулу нахождения объема:

    i = m x n * i

    подсчитаем каждый сомножитель в формуле, стараясь числа к степеням двойки:

    m x n:

    160 * 160 = 20 * 2³ *   20 * 2³ = 400 * 26 =

    = 25 * 24 * 26

    нахождение глубины кодирования i:

    256 = 28

    т.е. 8 бит на пиксель   (из формулы кол-во цветов = 2i)

    находим объем:

    i = 25 * 24 * 26 * 23 = 25 * 213 - всего бит на всё изображение

    переводим в кбайты:

    (25 * 213) / 213 = 25 кбайт

oil_price = input("Укажите стоимость бензина за литр:")

oil_kol = input("Укажите количество литров бензина, расходуемых в месяц:")

strahovka = input("укажите стоимость страховки:")

nalog = input("укажите через пробел расходы на налоги:").split(" ")

others = input("Укажите дополнительные расходы через пробел:").split()

oil_sum = int(oil_price) * int(oil_kol)

nalog_sum = 0

for i in nalog:

nalog_sum += int(i)

others_sum = 0

for i in others:

others_sum += int(i)

endSum = int(oil_sum) + int(strahovka) + int(nalog_sum) + int(others_sum)

print("1 mouth: " + str(endSum))

измени формат файла на .py