<span>var s,k: integer;
// описали переменные, которые будут использованы в программе: s и k целые числа
begin
s:= 500;
// переменной s присвоили начальное значение 500
for k:= 4 to 10 do
// организовали цикл для k от 4 до 10 с шагом 1. То есть нижеследующий оператор цикла будет выполняться 7 раз (для k=4, k=5, k=6, ... k=10)
s:= s - 2*k;
// для каждого k поочередно считаем s:
// k=4 -- s=500-2*4=492
// k=5 -- s=492-2*5=482
</span>// k=6 -- s=482-2*6=470
// k=7 -- s=470-2*7=456
// k=8 -- s=456-2*8=440
// k=9 -- s=440-2*9=422
// k=10 -- s=422-2*10=402<span>
write (s);
// выводим на экран итоговое значение s: 402
end.</span>
<span>Самой главной деталью компьютера является
+ процессор это как бы мозг компьютера </span>
Соляная кислота это вещество состоящее из водорода и хлора.
Соляная кислота=(водород+хлор)
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr(-6,7,45,-12,2,7,-15,0,64);
var kp:=0; var sp:=0;
for var i:=0 to a.Length-1 do begin
WritelnFormat('A[{0}]={1}',i,a[i]);
if a[i]>0 then begin kp+=1; sp+=a[i] end
end;
Writeln('Сумма ',kp,' положительных элементов равна ',sp)
end.
Результат
A[0]=-6
A[1]=7
A[2]=45
A[3]=-12
A[4]=2
A[5]=7
A[6]=-15
A[7]=0
A[8]=64
Сумма 5 положительных элементов равна 125
<em>Задание 2</em>
begin
Writeln(SeqGen(40,x->45*x+15,1).Where(x->x.IsOdd).Count);
end.
<u>Результат</u>
20
<em>Задание 3</em>
begin
Writeln(SeqGen(25,k->7*k+3*k/15,1).Average);
end.
<u>Результат</u>
93.6
<em>Формула некорректна, поскольку при i=1 и k=1 знаменатель дроби обращается в ноль. Программа будет всегда возвращать "бесконечность".</em>
var
i,k,m,n,ik:integer;
si,sk,facti,factk:double;
begin
Write('Введите через пробел значения m и n: ');
Read(m,n);
sk:=0; factk:=1;
for k:=1 to m do
begin
si:=0; facti:=1; ik:=1; factk:=factk*k;
for i:=1 to n do
begin
ik:=-ik; facti:=facti*i;
si:=si+factk/(ik+facti)
end;
sk:=sk+si
end;
Writeln('Результат: ',sk)
end.