Чесно я не знаю просто мне очень надо балы пособирать извени другие напишу т
1+2=3 (2)
3^2=9(1)
9^2=81(1)
81+2=83(2)
83+2=85(2)
Ответ:21122
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.
Var
n, i, mn, mx:integer;
a:array [1..10] of integer;
begin
randomize;
writeln('Ishodnii massiv');
for i:=1 to 10 do
begin
a[i]:=random(90)+10;
write(a[i],' ');
end;
writeln();
mn:=1; mx:=1;
for i:=1 to 10 do
begin
if a[mn]>a[i] then mn:=i;
if a[mx]<a[i] then mx:=i;
end;
n:=a[mn];
a[mn]:=a[mx];
a[mx]:=n;
writeln('Massiv posle obrabotki');
for i:=1 to 10 do
write(a[i],' ');
writeln();
end.