Предмет: Другие предметы, автор: тажемиха

помогите дам 50 бало кто поможет

Приложения:

Ответы

Автор ответа: TaehyungBTS
1
1.-
2.Вилка
3.Сова
4.Слово
5.Ветка
6.Замок
7.Заяц.

тажемиха: спасибо но всетаки поздно я сделала сама и между прочим первое слово ива но все равно спасибо
тажемиха: спасибо но всетаки поздно я сделала сама и между прочим первое слово ива но все равно спасибо
тажемиха: спасибо но всетаки поздно я сделала сама и между прочим первое слово ива но все равно спасибо
тажемиха: спасибо но всетаки поздно я сделала сама и между прочим первое слово ива но все равно спасибо
Автор ответа: TaisiyF
0
первое ива
дальше уже ответили
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: Математика, автор: kkost8826
Помогите з задачяй пж(на 3 дії)
2 года назад
Предмет: Математика, автор: milanailchenko2005
За день продали 3,2 ц бананів, що становило 0,16 їх запасів. Скільки центнерів бананів залишилось?
2 года назад
Предмет: Информатика, автор: Detlaff
Помогите найти ошибку в программе
Задача:
Вставить число k (число вводится с клавиатуры) после всех элементов, больших заданного числа, а число t – перед всеми элементами, кратными 3.

Программа:

Const n=10;
Type myarray = Array[1.. 30] Of Integer;
Var m : myarray;
x, k, i,d,c,w :Integer;

Procedure Init2(Var m: myarray);
Var i : Integer;
Begin

For i:=1 To n Do
begin
m[i]:=random(100);
write(m[i],' ')
end;
writeln;
End;

Procedure Insert2(k1, x1: Integer; Var m: myarray);
Var i : Integer;
Begin
For i:= n+k Downto k1+1 Do
m[i+1]:= m[i];
m[k1+1]:=k;

End;

Procedure Insert3(k1, x1: Integer; Var m: myarray);
Var i,c: Integer;
Begin
c:=10;
For i:= k1+k to c Do
m[i+1]:= m[i];
m[k1-1]:=w;

c:=c+1;


End;



Procedure Print(n1: Integer; m: myarray);
Var i : Integer;
Begin
For i:=1 To n Do
Write(m[i]:3);
Writeln;
End;


Begin
Init2 (M);
Writeln(' Введите число для вставки: ');
Readln(k);
Writeln(' Введите заданное число: ');
Readln(d);


For i:= n Downto 1 Do
If M[i]>d Then
Insert2(i,x,M);

Writeln(' Введите второе заданное число: ');
Readln(w);

For i:= 1 to n Do
If M[i]mod 3=0 Then
Insert3(i,x,M);

Print(n+k,M); {вывод массива после вставки всех элементов}
End.
2 года назад
Предмет: Физика, автор: Аноним
ПОМОГИТЕ СРОЧНОО буду оочень благодарен​
8 лет назад
Предмет: Английский язык, автор: Аноним
пожалуйста помогите!!я над этим сижу уже час и не понимаю
8 лет назад