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.
Начало ↓ Жили-были дед и баба ↓ И была у них курочка ряба ↓ снесла курочка яичко не простое а золотое ↓ Дед бил-бил не разбил ↓ | ↓ Баба била-била не разбила | яичко упало и | разбилось ↓ | ↓ Мышка бежала хвостиком махнула | Дед плачет Баба п | плачет || ↓ А курочка ряба кудахчет ↓ Конец
а1-а2+а3/3
Объяснение:
как учил так и объяснил