Ответ:
Объяснение:
Просто подставляешь формулы эти в ячейку, прописываешь в скобках какие ячейки нужно подсчитать. И вуаля , готово :)
Var
m, n: integer;
begin
readln(m, n);
if (m mod n = 0) or (n mod m = 0) then
writeln(1)
else
begin
randomize;
writeln(random(50));
end;
<span>end.</span>
Смотря в какой палитре, если RGB, то цвета всего 3 синий,кранный, зеленый, оттенков 255,то есть три канала, если взять 255 255 255 то белый, но 255 а не 256, а вообще сколько угодно)
//писал на скорую руку, должно все правильно работать
var
a,plus,minus,d:integer;
c:array[1..50] of integer;
begin
plus:=0;
minus:=0;
for a:=1 to 50 do
c[a]:=random(20)-10;//заполняем массив рандомо
for a:=1 to 50 do//проверям условие
if ((c[a]>0) and (c[a]<>0)) then
plus:=plus + 1
else if ((c[a]<0) and (c[a]<>0)) then
minus:= minus + 1;
Writeln(plus,' ');//кол-во полож
Writeln(minus,' ');//кол-во отриц
if (plus>minus)then
Writeln('Положительных')
<span>else Writeln('Отрицательных');
</span>end.
<span> </span>ПЭВМ<span> — </span>персональные<span> компьютеры серии ЕС (единой системы), в </span><span>основном, советские клоны </span>персональных<span> компьютеров IBM PC</span>С.
т.е. Персональные Электронно Вычислительные Машины.