Можно так:
var i,p: integer;
begin
p:=1;
for i:=2 to 15 do
if i mod 2=0 then p:=p*i;
writeln('Произведение четных чисел: ',p)
<span>end.
Или так:
var i,p: integer;
begin
i:=2;
p:=1;
while i<15 do
begin
p:=p*i;
i:=i+2
end;
writeln('Произведение четных чисел: ',p)
<span>end.</span></span>
def f1():
a = int(input())
b = int(input())
return a % b == 0
def f2():
a = float(input())
b = float(input())
c = float(input())
return a + b > c or a + c > b or b + c > a
def f3():
a = float(input())
b = float(input())
h = float(input())
return (a + b) * h / 2
В одном большом и красивом зале жили музыаальны инструменты. вечерами когда зал(театр) наполнялся нарядно одетыми людьми оркестр взвалновално готовился для выступления . каждый инструмент выходил по своему номеру растраивались при неудачах радывались когда аплодируют. когда люди покидали театр люстры меняли яркое свечение на нежный лунный свет а инструменты жили своей жизнью.
//Pascal ABC.NET v3.1 сборка 1172
Var
y,x:real;
i:integer;
begin
readln(x);
for i:=1 to 30 do
y:=y+cos(x*i);
writeln(y);
end.
Пример ввода:
1
Пример вывода:
-1.32716415333901