1 нужно 48=4+8=12
1991=1+9+9+1=20
182=1+8+2=11
25431=2+5+4+3+1=15
2 нужно если число одно как например 1 7 значит ставится цифра 1 если 10 цифра 2 если 183 цифр 3 1996 цифр 4
ДАЛЬШЕ НЕЗНАЮ СОРИ
1)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
q:=0;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]>0)then begin
q:=q+1;
if(q=1)then a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
<span>end.
2)
program gt;
var a,b:array[1..100]of integer;
n,m,i,q:longint;
begin
Randomize;
for i:=1 to 10 do
begin
a[i]:=random(200)-100;
if(a[i]<0)then begin
a[i]:=400;
end;
end;
for i:=1 to 10 do
begin
if(a[i]<>400)then write(a[i],' ');
end;
<span>end.</span></span>
Очень много спорного, но попробую дать ответ.
1) Вредоносные программы - 1,6,7,8,11
2) Спам - 4,9,10,12
3) Баннеры, реклама в интернете - 3,6,7,8,10,11
4) Кража логинов, паролей, информации - 2,3,5,6,7,8,11,12
5) Мошенничество - 5,6,7,8,9,11
6) Сайты с запрещенным контентом - 10,11
7) Хакерские атаки - 2,3,6,7,8,9,11
По повтори 8 [вп 50 нд 25 пр 30 вп 20 нд 20 лв 60 вп 20 нд 20 пр 210 вп 25 лв 180 пр 45]
вота)
Тока у меня лого3( Подошло? :)
Var a,b,c:array[1..5]of integer;
i:integer;
begin
for i:=1 to 5 do read(a[i]);
for i:=1 to 5 do read(b[i]);
for i:=1 to 5 do begin
if(a[i]<b[i])then c[i]:=a[i] else c[i]:=b[i];write(c[i],' ');
end;end.<span>
</span>