4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10…

А я разве их не решал? Но ладноо 1) Program Pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; Beginclrscr; readln (stroka); i: =1; repeatval (stroka[i],k,x); mas[i]: =k; i: =i+1; until i=length (stroka); x: =0; for i: =1 to length (stroka) do x: =x+mas[i]; if x=10 then writeln ('TRUE') else writeln ('ELSE'); end.2 я не знаю как решать 3) Program Pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln (stroka); i: =1; while i <= length (stroka) do begin val (stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length (stroka) do x: =x+mas[i]; writeln (x); end. 4) Program Pr1; uses crt; var stroka: string; i,k,x: integer; mas: array[byte] of integer; beginclrscr; readln (stroka); i: =1; while i <= length (stroka) do begin val (stroka[i],k,x); mas[i]: =k; i: =i+1; end; x: =0; for i: =1 to length (stroka) -1 dofor k: =1 to length (stroka) -i do if mas[k]=mas[k+1] then x: =x+1; if x>0 then writeln ('TRUE') else writeln ('FALSE'); end.