Легко решается. Площадь фото 10 см*15 см = 150 кв.см.
Каждый 1 кв.см. = 600 точек, значит всего 600*150 = 90000 точек.
Каждая точка кодируется 4 битами (16 цветов, если что), то есть 0,5 байта.
Объем памяти V = 0,5*90000 = 45000 байт = 45000/1024 ~ 44 Кбайта
Const
N = 20;
type
Tmas = array [1..N] of longint;
var
m: Tmas;
i, sum: longint;
begin
sum := 0;
for i := 1 to N do
begin
readln(m[i]);
if (m[i] mod 7 = 0) and (m[i] mod 10 = 1) then
sum := sum + m[i] ;
end;
writeln(sum);
end.
пж как лучший
1. Переводим число 277 в двоичную систему счисления.
277₁₀ = 100010101₂
2. Положительное число дополняется слева нулями до 16 разрядов
0000 0001 0001 0101
3. Отрицательное число в два шага переводится в дополнительный код.
а) В первом слева разряде пишется единица, в прочих единицы заменяются нулями, а нули - единицами:
1111 1110 1110 1010
б) К полученному числу прибавляется единица:
1111 1110 1110 1011
Var a, b, c : integer;
begin
readln(a, b, c);
if (a = b) and (a=c) then writeln('Треугольник равносторонний');
if ((a=b) and (a<>c)) or (b = c) and (b<>a) then writeln('Треуголник равнобедренный')
end.