Всего точек в изображении 55 х 55 = 3025
Точка может быть только черной или белой, для ее хранения достаточно 1 бита.
Объем памяти займет 3025 бит или 3025 / 8 = 378,125 байт, после округления в большую сторону 379 байт
в 1993 вышел OC Windows 3.1.
Или что то другое надо?
Summa = 0
for i in range(100, 1000):
if i%2==0:
summa+=i
print(summa)
получается 247050
У жука 6 ног, а у паука - 8.
1-й способ.
Пусть пауков х, тогда жуков - (8 - х). Ног у пауков будет (8х), а у жуков - 6(8 - х). Т.к. всего ног у них 54, составим и решим уравнение
8х + 6(8 - х) = 54,
8х + 48 - 6х = 54,
2х + 48 = 54,
2х = 54 - 48,
2х = 6,
х = 6 : 2,
х = 3.
Значит, пауков в коробке 3, а жуков - 5 (8 - 3 = 5).
Ответ: 5 жуков и 3 паука.
2-й способ.
Предположим, что в коробке только жуки, тогда ног у них было бы 6 · 8 = 48. Но ног у них 54, т.е. как бы "лишних" ног будет 54 - 48 = 6. И эти лишние ноги - это ноги пауков. Т.к. по сравнению с жуками у пауков на 2 ноги больше, о эти "лишние" ноги - это по ноги пауков. Значит, пауков в коробке будет 6 : 2 = 3, тогда жуков будет 8 - 3 = 5.
Ответ: 5 жуков и 3 паука.
Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.
