<span>//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var (s,v):=ReadReal2('s,v->');
Println('Сумма после ок. срока=',Range(ReadInteger('a->'),ReadInteger('b->')).Aggregate(real(0),(i,j)->s+i+(i*v/100)));
end.
Пример:
s,v-> 100 25
a-> 10
b-> 20
Сумма после ок. срока=4256.613
</span>
<span>Патч-кордом называют провод длиной до 5 м, соединяющий выход сетевой карты компьютера с разъемом на розетке. </span>
Var
a:array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do
read(a[i]);
end.
10 rem
20 input d
30 let k=4.3*sin(exp(<span>1/d)+2)/(d+2,1)-6,7*d
40 print "k=";k
50 end
</span>