Ин
Информатика
11.05.2022 23:54
Решено

Для хранения растрового изображения размером 16 на 16 пикселей отвели 64 байта памяти. каково максимально возможное число цветов в палитре изображения? прошу написать полное решение в процессе преобразования растрового графического изображения количество цветов уменьшилось с 64 до 8. во сколько раз уменьшился объем, занимаемый им в памяти? прошу написать полное решение сколько пямяти нужно для хранения 64-цветного растрового графического изображения размером 32 на 128 точек?

Лучшие ответы
Алисмит
2
4,6(44 оценок)
11.05.2022 22:44
//pascalabc.net версия 3.2, сборка 1367 begin       var sum : = 0;       for var i : = 1 to readinteger('n=') do       begin               var num : = readinteger('введите число =');               if num..count(c -> c = '5') = 2 then                       sum += num;       end;       writeln(sum); end.
ммаа2
17
4,6(37 оценок)
11.05.2022 08:37
========== 1 вариант через строку ========== var    n,a,k,sum,i,j: integer;     s: string;   begin   sum: =0;     write ('введите количество чисел: ');   readln (n);   for i: =1 to n do begin      write ('введите число: ');     readln (a);     str(a,s);     k: =0;     for j: =1 to length(s) do        if s[j]='5' then k: =k+1;     if k=2 then sum: =sum+a;   end;     writeln ('sum = ',sum); end. ========== 2 вариант через div и mod ========== var    n,a,x,k,sum,i: integer;   begin   sum: =0;     write ('введите количество чисел: ');   readln (n);   for i: =1 to n do begin      write ('введите число: ');     readln (a);     x: =abs(a);     k: =0;     while x> 0 do begin       if x mod 10 =5 then k: =k+1;       x: =x div 10;     end;     if k=2 then sum: =sum+a;   end;     writeln ('sum = ',sum); end. ========== пример результата: ========== введите количество чисел: 3 введите число: 550001 введите число: -550000 введите число: 123456 sum = 1
Присоединяйся к нам!
Зарегестрируйтесь
Уже есть аккаунт? Войти