var p,i,x,count: integer;
begin
count := 0;
p := 0 ;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(х );
writeln(p);
end
else
writeln('NO')
end
Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программыvar p,i,x,count: integer;
begin
count := 0;
p := 1;
for i := 1 to 4 do begin
read (x);
if x >= 0 then begin
p := p*x;
count := count+1
end
end;
if count > 0 then begin
writeln(count);
writeln(p);
end
else
writeln('NO')
end.
1)
amount = 0
for i in range(1, 51):
if (i % 2 == 0):
amount += i
print(amount)
2)
from random import randint
lst = [randint(1, 100) for i in range(10)]
print(lst)
for i in range(len(lst)):
lst[i] //= 2
print(lst)
Объяснение:
Парные числа - числа, которые делятся на 2 без остатка.
1)
amount = 0 // Переменная, хранящая сумму, равна нулю
for i in range(1, 51): // Берём элементы от 1 до 50 (первые 50 натуральных чисел)
if (i % 2 == 0): // Если число делится на 2 без остатка
amount += i // Сумма = сумма + i
print(amount) // Вывод ответа
2)
from random import randint // импорт функции randint() из библиотеки random
lst = [randint(1, 100) for i in range(10)] // Создание списка из рандомных чисел в диапазоне [1..100], состоящего из 10 элементов.
print(lst) // Выводим список
for i in range(len(lst)): // Берём индексы каждого элемента списка
lst[i] //= 2 // Делим значение списка с индексом i на 2
print(lst) // Выводим список
4915200 / (60 * 8) = 10240 Гц
Вроде так)