var n,i:longint;
var a:array[1..10000000] of longint;
begin
writeln('Введите количество элементов массива');
readln(n);
for i:=1 to n do begin writeln('Введите элемент массива'); readln(a[i]); end;
for i:=1 to n do if( (a[i] mod 2 = 0) and (a[i]<0)) then writeln(a[i]);
end.
113₍₈₎<1101100₍₂₎(154₍₈₎)
58₍₁₆)>45₍₈₎(25₍₁₆₎)
288₍₈₎<1050₍₁₀₎(2032₍₈₎)
1245₍₁₀₎>100111₍₂₎(39₍₁₀₎)
200₍₁₀₎<159₍₁₆₎(345₍₁₀₎)
1111110₍₂₎(7E₍₁₆₎,Е-14)<7F₍₁₆₎(F-15)
Рассматривается матрица размеров 4х4, элементов будет 16. Пока все они равны нулю. При выполнении цикла получится следующее
2 1 1 1
1 0 0 0
1 0 0 0
1 0 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 0 0
1 1 0 0
Далее:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 0
Ну и последний шаг:
2 1 1 1
1 2 1 1
1 1 2 1
1 1 1 2
Считаей единички. Их 12. Ответ 12
Я, конечно, не художник, но надеюсь это похоже на ёлки.
uses GraphABC;
begin
For var i := 0 to 4 do
begin
SetBrushColor(clGreen);
FillPie(80 + 120 * i, 100, 25, -50, -130);
FillPie(80 + 120 * i, 115, 40, -50, -130);
FillPie(80 + 120 * i, 135, 60, -50, -130);
FillPie(80 + 120 * i, 160, 75, -50, -130);
SetBrushColor(clBrown);
FillRectangle(74 + 120 * i, 234, 86 + 120 * i, 245)
end;
end.
2
-картина ученик
-одноклассник ученик
3
129128138146
4
BIT