k:=1;
n:=0
for k to 100 do
begin
n:=n+1;
a:=1/n;
sum:=sum+a;
end;
примерно так (pascal долго качается так что я пока не проверял + если это из задачника там есть ответы с пояснением, удачи)
<span>Свойства комьпютера: Версия виндоус, система, сведения об активации, оборудование, быстродействие и т.д., Мои документы: тип, размещение, размер, размещение конечной папки....Рабочий стол: заставка, темы, оформление, цветовые схемы, разрешение... Др. обьектов: в основном размещение и размер, дата последнего изменения.</span>
1.2бита,50 байтов, 512битов, 500байтов,0.5килобайт 2 а) , вроде так остальное ваще хз
Var f: real; x :integer;
begin //Ввод writeln ('введите x'); readln (x);
//решение
f:= x-(Power(x,3)/6)+(Power(x,5)/120)-(Power(x,7)/5040)+(Power(x,9)/362880)-(Power(x,11)/39916800)+(Power(x,13)/6227020800); {f:=Power(x,2);} //вывод writeln ('f = ', f); end.