Begin var a: integer; readln(a); for i: integer := 1 to abs(a) do if (a mod i = 0) then writeln('> ', i); end.
function Simple(a: integer): boolean; begin result := true; for i: integer := 2 to (a div 2) do if (a mod i = 0) then begin result := false; break; end; end;
begin var a: integer; readln(a); writeln(Simple(a)); end.
var a: integer;
begin readln(a); for i: byte := length(a.ToString()) downto 1 do write(a.ToString()[i]); end.
function Simple(a: integer): boolean; begin result := true; for i: integer := 2 to (a div 2) do if (a mod i = 0) then begin result := false; break; end; end;
function par(a: integer): string; begin for i: byte := length(a.ToString()) downto 1 do result += a.ToString()[i]; end;
begin var a: integer; readln(a); for i: integer := 1 to abs(a) do if ((a mod i = 0) and (Simple(a)) and (par(a) = inttostr(i))) then writeln('> ', i); end.
var a, b, c: array[1..n] of integer; i, j, kb, kc, t: integer;
begin Randomize; Writeln('Исходный массив'); kb := 0; kc := 0; for i := 1 to n do begin a[i] := random(101) - 50; Write(a[i]:4); if a[i] < 0 then begin Inc(kb); b[kb] := a[i] end else begin Inc(kc); c[kc] := a[i] end end; Writeln; { теперь массив b содержит отрицательныые элементы, с - остальные } for i := 1 to kb - 1 do for j := 1 to kb - 1 do if b[j] > b[j + 1] then begin t := b[j]; b[j] := b[j + 1]; b[j + 1] := t end; { сливаем массивы b и c в массив а} i := 0; for j := 1 to kb do begin i := i + 1; a[i] := b[j] end; for j := 1 to kc do begin i := i + 1; a[i] := c[j] end; Writeln('Результирующий массив'); for i := 1 to n do Write(a[i]:4); Writeln end.
Снизу проверка, а сверху перевод из двоичной в десятичную