Ответ:
2.Код на python:
def func(x,y):
return x+y
print(func(12,18))
Объяснение:
Ответ:30
1.Код на python:
import random
list=[]
for i in range(50):
list.append(random.randint(1,50))
print('Все числа:',list)
lis=[]
for m in list:
if m%2==0:
lis.append(m)
print('Все четные числа:',lis)
Program X; //работает только для русских строк
var
i: longint;
s: string;
begin
readln(s);
for i := 1 to length(s) do
if (ord(s[i]) >= 192) and (ord(s[i]) <= 223) then
s[i] := chr(ord(s[i]) + 32)
else if (ord(s[i]) >= 224) and (ord(s[i]) <= 255) then
s[i] := chr(ord(s[i]) - 32);
writeln(s)
<span>end.</span>
1) Перевести в троичную симметричную систему числа:
а) 17; б) -23; в) 41; г) -31.
2) Перевести в десятичную:
а) +-0---+0; б) --0-++0-; в) +00-+++; г) +---000+.
Могу дать сайт http://math.semestr.ru/inf/index.php
Решение задачи на языке PascalABC:
<em>Program n1;
</em>
<em>Var a:array[1..16] of integer; i:integer; //Описываем переменные
</em>
<em>Begin
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> a[i]:=random(40)-20; //заполняем массив
</em>
<em> write(a[i],' '); //выводим значение каждого элемента массива
</em>
<em>End;
</em>
<em>writeln; //пропускаем строчку при выводе
</em>
<em>For i:=1 to 16 do Begin //цикл на перебор массива
</em>
<em> if a[i] mod 2 = 0 then //условие чётности
</em>
<em> writeln('Элемент со значением (',a[i],') под номером #',i,' является чётным'); //вывод чётных элементов и их номеров
</em>
<em>End;
</em>
<em>End.</em>
