Рампиши задание получше ,а то не понятно
Var
n, i, z: Integer;
begin
Write('n=');
ReadLn(n);
if n = 0 then
WriteLn('z=-1')
else if (n < 0) then
WriteLn('Введено отрицательное число')
else
begin
z := 1;
for i := 1 to n do
z := z * 1 * (3 * i - 1);
WriteLn('z=', z);
end;
end.
Делаем развернутую запись числа
3*8²+4*8¹+1*8°=192+32+1=225
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
Writeln('s=',Range(300,600).Sum)
end.
<u><em>Результат:</em></u>
s=135450