В данном массиве находится 4 элемента
1)2
2)-2
3)-2
4)2
Var M, N, sumN: integer;
begin
readln(N);
M := N;
sumN := 0;
while (M > 0) do
begin
inc(sumN, M mod 10);
M := M div 10;
end;
M := (N div sumN + 1) * sumN;
if (M < 2*N) then
writeln(M)
else
writeln('нет')
end.
#/usr/bin/env python27
#к этому моменту массив massiv должен
#быть определен
for i in massiv:
....if not(i\%2):
........print i,
Ответ б так как на книге не может быть музыки и видео фрагментов, это и есть мультимедиа
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>