На ввод подается одно число. найдите сумму всех его простых делителей. входные данные одно целое положительное число, не превышающее 10 в степени 6 и большее, чем один. выходные данные выведите сумму простых делителей этого числа. примеры ввод 6 вывод 5

Delphi / pascal function mysimpledigit(a: integer): boolean; var i: integer; begin for i: =sqrt(a) downto 1 do if not (a mod i = 0) then mysimpledigit: =false else mysimpledigit: =true; end; var i,n,s: integer; begin write('введите число: '); readln(n); if ((n> 1) and (n< 1000000)) then begin s: =0; for i: =2 to n-1 do if ((n mod i = 0) and (mysimpledigit(i) = true)) then s: =s+i; end; writeln('сумма всех простых делителей: ', s); readln; end. c++ #include < cmath> #include < iostream> using namespace std; bool mysimpledigit(unsigned a) { for (unsigned i =sqrt(a); i > 1; if % i)) return false; return true; } int main() { unsigned n,s; cin > > n; if ((n> 1) & & (n< 1000000)) { s=0; for (unsigned i=2; i< =n; i++) if ((n%i==0) & & (mysimpledigit(i)==true)) s+=i; cout < < "summa vsex prostix deliteley: " < < s; } else cout < < "vvedite drugoe chislo"; return 0; }

Pascalabc.net 3.3 begin   write(readchar, readchar, ' ', readchar, readchar) end.