<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=ReadInteger('Введите число-дубликат для удаления:');
var id:=a.FindIndex(t->t=k);
if id>-1 then a:=a[:id+1]+a[id+1:].Where(t->t<>k).ToArray;
a.Println
end.
<u>Пример</u>
n= 20
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 -16 16 47 33 -1 -16
Введите число-дубликат для удаления: -16
-23 -34 14 35 -16 -4 42 -13 -3 -49 24 49 26 -12 16 47 33 -1
Кабельное тв - аналоговое , наушники у телефону аналоговые , кабель vga от монитора
Алгоритм:
1. присвоить значение х, д
2. вычислить 5х-37
3. у= 5х-37 значение поместить в ячейку
4. задать х=х+д
5 перейти к пункту 2
Ответ:
b=1
Объяснение:
Используем команды по порядку
12111
1: 17-b
2: (17-b)/2
3-5: (17-b)/2-b-b-b
В итоге получили 5,значит:
(17-b)/2-b-b-b=5 теперь просто найдем b
8,5-0,5b-b-b-b=5
3,5-3,5b=0
3,5b=3,5⇒b=1
Ответ:b=1