Регистрация
Anna7225
24.05.2023 09:17
Информатика
Есть ответ 👍

ИНФОРМАТИКА 10 КЛАСС.
решите через круги эйлера.

299
492
Посмотреть ответы 1

Ответы на вопрос:

nastasiia1989
nastasiia1989
4,6(18 оценок)
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.  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. 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( then      writeln('> ', i); end.==========================

Популярно: Информатика