//PascalABC.NET
//Версия 3.3. сборка 1583 (25.11.2017)
begin
var a:=ReadArrInteger('Введите элементы массива->',ReadInteger('Введите размер массива->'));
Println('Количество минимальных->',a.Where(t->t=a.min).Count);
end.
Пример:
Введите размер массива-> 10
Введите элементы массива-> 1 2 3 4 5 6 7 1 1 1
Количество минимальных-> 4
program zad4;
uses crt;
var
s,i,n: integer;
begin
clrscr;
writeln('Вычисление
суммы первых n положительных чисел');
writeln('введите
количество суммируемых чисел');
readln(n);
s:=0;
for i:=1 to n do
<span>
begin</span>
<span>
If n mod i =0 then</span>
<span> s:=s+n;</span>
<span> end;</span>
writeln('сумма
первых ',n,' положительных чисел равна ',s);
readln;
<span>end.</span>
<span>
</span>
<span>
</span>
<span>Попробуй как-то так</span>
Команда Повтори 4 раз<span> означает, что команды </span>Сместиться на (3, 3) и Сместиться на (1,−2)<span> выполнются четыре раза. В результате Чертёжник переместится на 4·(3 + 1, 3 − 2) = (16, 4). Выполнив последнюю команду </span>Сместиться на (−8, 12)<span>, Чертёжник окажется в точке (8, 16).
</span>ответ 1
1024*256=262144 (пикселей) всего в изображении
160 Кб *1024 = 163840 байт *8 = 1310720 бит
1310720 / 262144 = 5 (бит) приходится на один пиксель
Формула мощности алфавита: N = 2^i
N = 2^5 = 32 - максимальное количество цветов
Ответ: 32