Сканируется цветное изображение размером 10*12 дюймов. разрешающая сканера 300*300 dpi, глубина цвета - id45410920201207 от Lika050509 07.12.2020 05:55

Question

Информатика: Сканируется цветное изображение размером 10*12 дюймов. разрешающая сканера 300*300 dpi, глубина цвета - 3 байта. какой информационный объем будет иметь полученный графический файл?

Lika050509 · Accepted Answer

1. Вот так это нужно решать по-современному

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
Writeln('k=',ArrRandom(15,1,20).Println.Count(x->x>10))
end.

Тестовое решение
4 16 14 9 11 18 17 14 14 15 1 1 9 10 15
k=9

2. А вот так учат решать в школе...

// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
var
a:array[1..15] of integer;
i,k:integer;
begin
Randomize;
k:=0;
for i:=1 to 15 do begin
    a[i]:=Random(20)+1;
    Write(a[i],' ');
    if a[i]>10 then k:=k+1
    end;
Writeln;
Writeln('k=',k)
end.

Тестовое решение:
18 15 7 6 3 3 10 6 6 15 2 16 16 2 12
k=6

MOGZ ответил