Object Pascal — Delphi
HTML — DW
MS VS — C#, C++
Program n1;
const n=10;
var a: array[1..n] of integer;
b: array[1..5] of integer;
i,sum,d,k: integer;
begin
sum:=0;
writeln('исходный массив: ');
for i:=1 to n do
begin
a[i]:=i*i;
write(a[i],' ');
end;
writeln;
for i:=1 to n do sum:=sum+a[i];
d:=a[n]-a[1];
k:=0;
for i:=1 to n do if i mod 2=0 then begin
k:=k+1;
b[k]:=a[i];
end;
writeln('сумма: ',sum);
writeln('разность: ',d);
writeln('другой массив: ');
for i:=1 to 5 do write(b[i],' ');
end.
В десятичной: 305 + 418 = 723
В двоичной: 1011010011
1.
var a1,an,d,n,i:integer;
begin
readln(a1,d);
readln(n);
an:=a1;
for i:=2 to n do an:=an+d;
writeln('an = ',an);
end.
2.
function f(a1,d,k:integer):integer;
begin
if k=1 then f:=a1 else f:=f(a1,d,k-1)+d;
end;
var a,r,n:integer;
begin
readln(a,r);
readln(n);
writeln('an = ',f(a,r,n));
end.
Пример:
3 2
5
<span>an = 11</span>