Javascript прекрасные животные напишите цикл for, который изменяет массив животных, делая их прекрасными! например, есть следующий массив: var animals=["кот","рыба","лемур","комодский варан"] к каждому элементу массива должно быть добавлено «-прекрасное животное». чтобы получилось кот — прекрасное животное и т.д. подсказка: animal[0] = animal[0] + «-прекрасное животное»

👇

Ответ:

новичок625

13.11.2020

<HTML>
<HEAD>
<SCRIPT>
function btnClick()
{
s1=""; s2="";
var animals=["кот","рыба","лемур","комодский варан"];
for (i=0; i<animals.length; i++) {
s1 = s1+animals[i]+"\n";
animals[i] = animals[i] + " - прекрасное животное";
s2 = s2+animals[i]+"\n"
};
document.frm.res1.value=s1;
document.frm.res2.value=s2;
}
</SCRIPT>
</HEAD>
<BODY>
<H1>Животные</H1>
<FORM name=frm>
<INPUT type="button" value="Щелкни здесь!"
onClick="btnClick();">
<P>
<TEXTAREA name="res1" cols="50" rows="5">
</TEXTAREA>
<P>
Результат:
<BR>
<TEXTAREA name="res2" cols="50" rows="5">
</TEXTAREA>
</FORM>
</BODY>
</HTML>

4,7(29 оценок)

Открыть все ответы

Ответ:

Бикулова

13.11.2020

1)
const n=5; m=4;
var
a:array[1..n,1..m] of integer;
i,j:integer;
b1,b2:boolean;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
begin
b1:=true; b2:=true;
for j:=2 to m do
begin
if a[i,j-1]>=a[i,j] then b1:=false;
if a[i,j-1]<=a[i,j] then b2:=false;
end;
if b1 then writeln('В(о) ',i,' строке последовательность возрастающая');
if b2 then writeln('В(о) ',i,' строке последовательность убывающая');
end;
end.

Пример:
Исходный массив:
59 91 71 89
89 65 40 31
51 62 97 61
88 25 87 11
8 9 12 80
В(о) 2 строке последовательность убывающая
В(о) 5 строке последовательность возрастающая

2)
В постановке задачи есть неопределенность. Какой (какие) индекс (ы) должен быть степенью двойки - хотя бы один или оба?

3)
const n=5; m=4;
var
a:array[1..n,1..m] of integer;
i,j,k:integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
end;
writeln;
end;
k:=0;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 7 = 0 then k:=k+1;
writeln('k = ',k);
end.

Пример:
Исходный массив:
63 19 86 92
23 9 62 3
89 56 54 46
77 89 70 41
60 1 63 82
k = 5

4,4(46 оценок)

Ответ:

makusolka

13.11.2020

Два
Первый, прямой. Просто перебрать возможные варианты (не забывая про инверсию). Нужные суммы: 7, 14, 21, 28, 35
7 выходит при:
1+6,2+5,3+4.
14 выходит при:
1+13,2+12,3+11,4+10,5+9,6+8,7+7
21 выходит при:
1+20,2+19,3+18,4+17,5+16,6+15,7+14,8+13,9+12,10+11
28 выходит при:
8+20,9+19,10+18,11+17,12+16,13+15,14+14
35 выходит при:
15+20,16+19,17+18
При инверсиях кол-во вариантов:
В первом случае 3*2=6, во втором: 2*6+1=13. Всего: 13+6=19.
В третьем случае 10*2=20
В четвертом случае 2*6+1=13, в пятом: 3*2=6. Всего так же как и в первых двух 19.
Складываем.
19+20+19=58.

Второй, гибкий.
Сумма двух чисел делится на число n, если сумма остатков от деления на n этих чисел равна самому n либо 0 (из теории чисел).
Известно, что у 20-гранника 20 возможных "чисел". 7 мы получаем из 1+6,2+5,3+4 и инверсий этих групп.
Сколько чисел присутствует в 20, при сложении остатков которых мы получим 7? Вот 7+0. Остаток 7 невозможен, поэтому берем просто 0+0. Это у нас 7 и 14 для обоих случаев, т.е. 2*2=4.

Для начала 6+1. Для первого: 6, 13, 20. Для второго: 1, 8, 15. 3*3=9.
Затем 5+2. Для первого 5, 12, 19. Для второго: 2, 9, 16, 3*3=9
Далее 4+3. Для первого: 4, 11, 18. Для второго: 3, 10, 17. 3*3=9
3+4. Первое: те самые 3, 10, 17. Второе, понятно, 4, 11, 18. 3*3=9
2+5: 1) 2, 9, 16, 2) 5, 12, 19. 3*3=9
1+6: 1) 1, 8, 15, 2) 6, 13, 20 3*3=9
0+7 (было уже как 0+0). (вообще, из этого можно было установить закономерность и не высчитывать все).
9*6+4=58.

ответ: 58.

4,4(24 оценок)

Это интересно:

Образование-и-коммуникации

13.09.2022

Как легко и быстро спрягать испанский глагол hacer...

Стиль-и-уход-за-собой

03.11.2020

Описание людей: как правильно выбрать слова...

Компьютеры-и-электроника

15.02.2020

Как нарисовать шар в GIMP?...

Образование-и-коммуникации