В цикле от 1 до 10 вводим i-тый элемент массива. Сразу в этом же цикле проверяем два условия:
1) если i < 6 то прибавляем этот элемент к сумме1
2) если i чётное и элемент чётный прибавляем его к сумме2.
С телефона не выделяются абзацы, поэтому сори за вид.
Program zzz; Var s1, s2: integer; x: boolean;Var i: byte; Var M: array[1..10] of integer; Begin s1:=0; s2:=0; For i:=1 to 10 do begin Writeln ('введите ',i,'-е число массива'); Readln (M[i]); If i<=5 then s1:=s1+M[i]; if ((i mod 2)=0) and ((M[i] mod 2)=0)Then s2:=s2+M[i]; End; Writeln ('Сумма первых 5 элементов = ',s1);Writeln ('Сумма чётных элементов стоящих на чётных позициях = ',s2);End.
const DOLLAR = 68; // доллар в руб
const EURO = 75; // евро в руб
let rub = prompt("Введите сколько хотити перевести");
rub = parseInt(rub, 10);
alert("Доллары: " + rub/DOLLAR + "\nЕвро: " + rub/EURO );
Делим на основания сс, то есть на 2
14/2=7(0)
7/2=3(1)
3/2=1(1)
1/2=0(1)
Читаем остатки с конца:
<u>Ответ: 1110</u>
===== PascalABC.NET =====
begin
var F: integer-> integer := k -> Range(2, k).Product;
var p := 1.0;
for var j := 2 to 4 do
begin
var s := 0.0;
for var k := -1 to 1 do
s += 2 ** k / (Abs(k) + F(j));
p *= s
end;
Print(p)
end.
a = int(input('Введите 1-е число: '))
b = int(input('Введите 2-е число: '))
if abs(a-b) == 135:
print('yes')
else:
print('no')