1. Составить программу и алгоритм находящую сумму цифр трехзначного числа 2.…

Program gt; var s,a,b,c,n: longint; beginread (n); a: =n div 100; b: =(n mod 100) div 10; c: =n mod 10; s: =a+b+c; writeln (s); end.2) program gt; label 1; var p,n,i,j: longint; beginread (n); for i: =2 to n dobeginif (n mod i=0) then beginp: =round (sqrt (i); for j: =2 to p dobeginif (i mod j=0) then goto 1; end; writeln (i); 1: end; end; end.