1024 = 2 в 10 степени, значит глубина цвета = 10 бит, всего пикселов 16*24 = 384. Объём = 384*10 = 3840 бит = 480 байт
Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
Блогсхема:
Начало
Действие 1
Действие 2
Конец
Можешь написать алгоритмы:
Собирание в школу
Заправление постели
Поливание цветка
И т.д
Решение во вложении. все забито через формулы, поэтому если поменять количество почты или вес почты, то результаты автоматически поменяются.
В кодировке Unicode символ занимает 2 байта, в слове "информатика" 11 букв
11*2=22 байта