Сложно , кстати, лучше пишите текстом,а то картинки не всегда отображаются.
Var m,n,h,i:longint;begin read(n); h:=2017-1985; h:=h+1; for i:=1 to h do begin m:=n div 100; m:=m * 3; n:=n+m; end; writeln(n);end.
Program n1;
const n=10;
var a: array[1..n] of real;
sum,k: real;
i: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
readln(a[i]);
if a[i]>0 then begin
k:=k+1;
sum:=sum+a[i];
end;
end;
write(sum/k);
end.
В системе с основанием 3 всего три цифры: 0, 1, 2.
Следовательно, подходят все числа, в состав которых входят цифры не больше 2.