1)Найти 3 совершенное число(программа+блок схемы)
2)Определить 35 простое число(программа +блок схемы)
3)Дано:трехзначное число ,определить :является ли произведение его цифр трехзначным числом(программа+блок схемы)

var  i, n, s: longint;  d, k: integer;begin  i := 3; k := 0;  repeat    s := 1;    for d := 2 TO Trunc(sqrt(i)) do     begin      n := (i div d);      if n * d = i then s := s + d + (i div d);    end;    if int(sqrt(i)) = sqrt(i) then s := s - Trunc(sqrt(i));    if s = i then k := k + 1;    i := i + 1  until (k = 3);  Writeln('Третье совершенное число равно ',s)end.Тестовое решение:Третье совершенное число равно 496const  k=35; { k-е по порядку простое число }var  i,j,n,m:integer;begin  n:=1; i:=1;   repeat    j:=2;    m:=round(sqrt(i));    while (i mod j <>0) and (j<=m) do j:=j+1;    if j>m then n:=n+1;    i:=i+1  until (n=k);  Writeln(i-1)end.Тестовое решение:137var  n, d1, d2, d3: integer;begin  Write('Введите трехзначное число ->');  Readln(n);  d1 := (n div 100);  d2 := ((n mod 100) div 10);  d3 := (n mod 10);  if (d1 * d2 * d3 in [100..999]) then    Writeln('Произведение цифр трехзначное')  else Writeln('Произведение цифр не трехзначное')end.Тестовое решение:Введите трехзначное число ->518Произведение цифр не трехзначное*** В блок-схемах использованы обозначения:sqrt(x) - квадратный корень от х;\ - операция целочисленного деления% - операция остатка от целочисленного деления