N это элементы массива
Раньше с паскалем не работал, но думаю что верно
for i:=1 to n then begin
if a [i] mod 2 = 0 then
writeIn(a[i]);
end
end;
Алгоритм не имеет решения, т.к. после блока ввода стрелка раздваивается на 2 что не возможно без условия. после блока условия должна быть стрелка в логический блок из которго должно выходить 2 стрелки "истина" (да) и "лож" (нет). и цикл должен быть из логического блока куда ни будь на верх алгоритма, чаще всего вновь на услоие.
64 Мбайт = 64*1024 Кбайт = 64*1024*1024 байт = 64*1024*1024*8 бит =
2^6*2^10*2^10*2^3 бит = 2^29 бит
16 = 2^4
16^(4*x) = 2^29
4*x = 29 ⇒ x=29/4 = 7,25
<em>// PascalABC.NET 3.2, сборка 1370 от 24.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin;
var s:=ReadInteger('n=').ToString;
If s.Length<>(s.Distinct.Count) then Writeln('не является')
else
if s=s.ToCharArray.SortedDescending.JoinIntoString('')
then Writeln('является') else Writeln('не является')
end.
<u>Примеры</u>
n= 9875431
является
n= 9753321
не является
n= 9763421
не является
<u><em>Замечание:</em></u> учтено, что упорядоченность должна быть по убыванию а не по невозрастанию. т.е. нельзя, чтобы попадались две одинаковые цифры.