Вот программа по формуле
var a:integer;
s:real;
begin
s:=1;
for a:=1 to 15 do begin
if (a mod 2 = 1) then s:=s+(2/a);
end;
writeln('сумма дробей с числителем = 2 а знаменателем от 1 до 15 = ',s);
end.
а вот программа по словесной задаче
var a,s:integer;
begin
s:=1;
for a:=10 to 99 do begin
if a mod 3 = 0 then s:=s*a;
end;
writeln('произведение двузначных чисел кратных 3 = ',s);
end.
X:=sqrt(x); лол тут надо минимум 20 символов)
Var
s:String;
i:Integer;
Begin
Read(s);
for i:=1 to length(s) do
begin
if (i mod 2=0) then Delete(s,i,1);
end;
Writeln(s);
end.
<span>n = int(input("n = "))
a = int(input("a = "))
p = <span>1
</span>for i in range(1,n+1)<span>:
</span>----p *= (a+i)**<span>2
</span>print('P =',p)</span>
<span>К системному ПО относятся все, что управляет "компьютерной системой", а именно системные утилиты проверки, дефрагментации, всевозможные отладчики и т.д</span>
<span>
</span>
<span><span>Все прикладные программы.Без которых компьютер был бы всего лишь сборкой пластмассы))</span></span>