//PascalABC.NET 3.1 сборка 1200
begin
var b := new System.Collections.Generic.List<integer>();
var c := new System.Collections.Generic.List<integer>();
var x := ReadReal('x =');
var y := ReadReal('y =');
for var n := 1 to 30 do
begin
var z := cos(n * x + y);
if z > 0 then b.Add(n);
if z < 0 then c.Add(n);
end;
Println('X=' + x + ' Y=' + y);
Println('Массив В:', b);
Println('Массив C:', c);
end.
Var s: set of integer;
<span> i,a,k: integer;
</span><span>begin
</span><span> s:=[]; k:=0;
</span><span> write('введите 6 чисел через пробел ');
</span><span> for i:=1 to 6 do
</span><span> begin
</span><span> read(a);
</span><span> if a in s then inc(k);
</span><span> s:=s+[a];
</span><span> end;
</span><span> if k>0 then writeln('есть повторяющиеся')
</span><span> else writeln('нет повторяющихся');
</span><span>end.
</span>введите 6 чисел через пробел 10 12 15 19 17 15
<span>есть повторяющиеся
</span>введите 6 чисел через пробел 17 19 21 13 14 15
<span>нет повторяющихся
</span>
7,62 см это 3 дюйма, ибо 7,62 / 2,54 = 3
итого картинка 3 х 3 дюйма.
считаем количество точек.
3 * 600 = 1800
3 * 1200 = 3600
Общая площадь в точках (битах) будет 1800 * 3600 = 6480000 бит
общий объем 6480000 * 16 = 103680000 бит
или 103680000 / 8 = 12960000 байт
или ~12 Мбайт
Буфер нужен для того чтобы обрабатывать и пере гонять информацию
Решение смотри в приложенном скриншоте.