М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
softinator
softinator
05.05.2023 14:28 •  Информатика

Для списка целых чисел нужно найти сумму элементов с четными индексами [0-й, 2-й, 4-й итд], затем перемножить эту сумму на последний элемент исходного массива.
Не забудьте, что первый элемент массива имеет индекс 0.
Для пустого массива результат всегда 0 [ноль].
[0, 1, 2, 3, 4, 5] => (0 + 2 + 4) * 5 = 30
[1, 3, 5] => 30
[6] => 36
[] => 0

👇
Ответ:
dimanichaev799
dimanichaev799
05.05.2023

x= []

for a in input().split():

 x.append(int(a))

print((sum(x[::2]))*x[-1])

4,4(81 оценок)
Открыть все ответы
Ответ:
Zavgorodnev04
Zavgorodnev04
05.05.2023
Первая
program PrograPervaya;
var x,y,z,f:integer;

begin
  Writeln('vvedite pervoe chislo:=');
   readln(x);
  Writeln('vvedite vtoroe chislo:=');
   readln(y);
  Writeln('vvedite trete chislo:=');
   readln(z);
  if (x < y) and (x < z) then  begin    Writeln('Pervoe chislo menshee');
  end;
  if (y < x) and (y < z) then
  begin
    Writeln('Vtoroe chislo menshee');
  end;
  if (z < x) and (z < y) then  begin  Writeln('Tretee chislo menshee');
  end;
  Write('End?');
  readln(f);
end. 
 Вторая
program PrograVtoraya;
var k,i:integer;
begin
  writeln('vevedite chislo');
  readln(k);
  if (k mod 3 = 0) and (k mod 7 = 0) and (k mod 9 = 0) then
  begin    writeln('chislo kratnoe 3, 7,9');
  end
  else
  begin
  writeln('chislo ne kratno 3,7,9');
    end;
  writeln('End?');
  readln(i);

end.

Третья

program PrograVtoraya;var z,n,k,s,i:integer;
begin
writeln
('vvedite 4 znach chislo');
readln(n);
z:=n div 1000;
k:=n div 100 mod 10;
s:=n div 10 mod 10;
i:=n mod 10;
if ((z = k) and (z = s) and (s = k)) or ((k = s) and (k = i) and (s = i)) or ((i = z) and (i = k)) and ( k = z) then begin writeln('Da, verno');
 end
else
begin
writeln('net, ne verno!');
end;

 writeln('End?');
readln(i);

end.     
4,7(91 оценок)
Ответ:
костя140
костя140
05.05.2023
Const
   N = 15;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
WriteLn('P = ',P);
End.

Const
   N = 20;
Var
   A:array[1..N] of integer;
   i:integer;
   P:real;
Begin
P:=1;
Randomize;
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(21)-10;
    Write(' ',A[i]);
    P:=P*A[i]
    End;
WriteLn;
Write('Элементы, кратные пяти:');
For i:= 1 to N do
    if A[i] mod 5 = 0 then Write(' ',A[i])
End.

Var
   A:array[1..10000] of integer;
   i,n:integer;
   S:real;
Begin
Randomize;
Write('n = ');ReadLn(n);
Write('Исходный массив:');
For i:=1 to N do
    Begin
    A[i]:=random(31);
    Write(' ',A[i]);
    if i mod 2 <> 0 then S:=S+A[i]
    End;
WriteLn;
WriteLn('Sr = ',S/((n div 2)+(n mod 2)));
End.
4,4(55 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ