Var a: array [1..20] of integer; i, s: integer;
begin
randomize;
s := 0;
for i := 1 to 20 do
a[i] := random(40) - 10;
for i := 1 to 20 do
begin
write(a[i], ' ');
if (a[i] + 10) mod 2 = 1
then
s := s + 1;
end;
writeln();
writeln(s);
<span>end.</span>
1 - телефон (по кол-ву букв в словах)
2 - лев (число повторяется через два)
3 - 13,26,13 (закономерность: +2, *2, /2)
Javascript:var массив=[];for(var сч=0;сч<10;сч++)массив.push(Math.round(Math.random()*12)-6);for(var сч=0;сч<10;сч++)if(массив[сч]<0)массив[сч]=0;
Ответ:
https://tproger.ru/problems/python-3-exercises-for-beginners-geekbrains/
Объяснение:
1.
t = [1, 1, 4, 3, 2, 5, 8, 13, 21, 34, 56, 90, 135]
for i in range(len(t)):
if i < 5:
print(t[i])
2.
result = []
for elem in a:
if elem in b:
result.append(elem)
print(result)
3.
result = sorted(my_dict, key=my_dict.get, reverse=True)[:3]
Var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
131
241
324
550
624
803
900
910
Если требуется деление на 11 без остатка, то:
var i,j,k:integer;
begin
for i:=1 to 9 do
for j:=0 to 9 do
for k:=0 to 9 do
if ((i*100+j*10+k) mod 11) = 0 then
if ((i*100+j*10+k) div 11) = (i*i+j*j+k*k)
then writeln(i*100+j*10+k);
end.
Результат:
<span>550
803</span>