Begin
if n > 1 then
decTo5(n div 5);
write(n mod 5);
end;
var
n: integer;
begin
write('n = ');
readLn(n);
if (n > 0) then
decTo5(n)
else
writeLn('Error, n must > 0!');
writeLn;
end<span>.
Извини меня если не правильно. Вроде так.
</span>
<span>дано: i=4</span>
<span>найти: N - ?
</span><span><span><span><span>
решение:
формула: <span>N=2i</span> => <span>N=2×4</span>, N=16</span> </span><span /></span></span>
ответ: 16
Var a:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do a[i]:=i;
for i:=1 to n do write(a[i],' ');
writeln;
<span>end.</span>