PascalABC.NET 3.3
begin
var N := ReadInteger('Введите N:');
Println('Произведение первых N нечётных чисел равно',
1.Step(2).Take(N).Aggregate(BigInteger(1), (p, x) -> p * x));
Println('Квадраты первых N натуральных чисел:');
1.To(N).Select(x -> x * x).Print;
end.
Пример работы программы:
Введите N: 10
Произведение первых N нечётных чисел равно 654729075
Квадраты первых N натуральных чисел:
1 4 9 16 25 36 49 64 81 100
Решение в файле
uses crt;
var a: array of integer; n, i: integer; begin
WriteLn('Введите N');ReadLn(n);
a := new integer[n];
randomize; //заполняем массив случайными значениямиfor i:=0 to n-1 dobegina[i]:=random(100)-50;Write(a[i]:5);end;Writeln;
for i:=0 to n-1 do //заменяем положительные элементы нулемbeginif a[i]>0 then a[i]:=0;Write (a[i]:5);end;writeln;readln;<span>end.</span>
Ответ: Лучше всего, как только пришёл в кабинет информатики, поставить рюкзак, подготовиться к уроку и выйти на коридор. Перед тем, как браться ща клавиатуру, стоит тщательно вымыть руки с мылом. Разрешено разговаривать на переменах, повторять домашнее задание. Стоит вымыть доску перед началом урока
Объяснение:
Мне не совсем понятна формулировка вопроса: если там имеется в виду, что Красный и Зеленый стоит на максимуме, а Синий на минимуме, то будет Желтый. То есть в реальности это надо было бы записать как RGB (255,255,0)
А если там действительно RGB (1,1,0) как сказано в задачке, то оно даже из черного не вылезет :) Но, скорее всего, просто запись цвета в задачке нестандартной манере сделана.
640 * 200 = 128 000 пикселей