Составить программу для паскаля.1) Определить количество трехзначных чисел сума…

1) uses crt; var a: array[1… 10] of integer; c1,c2,c3,s,i,r,n: integer; beginfor i: =1 to 10 do begin a[i]: =random (300-100+1)+100; write (a[i]: 4); end; writeln; write ('Введите число N: '); readln (n); r: =0; for i: =1 to 10 do begin c1: =a[i] div 100; c2: =a[i]-c1*100; c2: =c2 div 10; c3: =a[i]-c1*100-c2*10; s: =c1+c2+c3; if s=n then r: =r+1; s: =0; c1: =0; c2: =0; c3: =0 end; writeln ('Количество чисел, сумма цифр которых равна ',n,', равно ',r); end. Я сделал, что числа даются случайные. Если нужно числа вводить, строку a[i]: =random (300-100+1)+100; заменяем на read (a[i]); 2) uses crt; var N,x: integer; a1,aX,b: string; beginwrite ('Введите число N: '); readln (n); str (n,b); x: =length (b); a1: =copy (b,1,1); ax: =copy (b,x,1); delete (b,1,1); delete (b,x-1,1); b: =ax+b+a1; writeln (b); end. Во второй задаче в конце результат будет выводиться в виде текста, состоящего из цифр, то есть, дальнейшие арифметические операции над ним невозможны. Если нужно их проводить, то надо добавить строчки: val (b,x,n); write (x);