Решить паскале по теме ! выходит 3 за ! дано натуральное n .верно ли, что сумма его цифр больше 10. 2. дано натуральное n. определить, сколько раз в нем встречается цифра, равная последней. 3. дана непустая последовательность целых чисел, оканчивающаяся нулем. найти сумму всех чисел последовательности. 4. дано натуральное число. верно ли, что это число четырехзначное? 5. известны оценки по информатике 15 учеников класса. выяснить, есть ли среди них двойки.

1.  var  n,i,k,sum,g: integer; begin readln(n); g: =n; while n< > 0 do begin   g: = g div 10;   k +=1; end; for i: =1 to k do begin g: = n mod 10; sum: = sum + g; n: =n div 10; end; if sum> 10 then writeln('верно') else ('неверно'); end. 2. var  n,i,k,p,h,g: integer; begin readln(n); g: =n; while n< > 0 do begin   g: = g div 10;   k +=1; end; p: =n mod 10; n: =n div 10; for i: =1 to k-1do begin g: = n mod 10; if g = p then   h += 1; n: =n div 10; end; writeln(h); end. 3. const n=10; var a: array[1..n]of integer; i,sum: integer; begin a[n]: =0; for i: =1 to 9 do readln(a[i]); for i: =1 to n do    sum: =sum+a[i]; writeln(sum); end. 4. var n: integer; begin readln(n); while n< > 0 do begin n: =n div 10; k += 1; end; if k = 4 then writeln('число четырехзначное') else writeln('число не  четырехзначное'); end. 5. var a: array[1..10]of integer; i: byte; begin for i: =1 to 10 do readln(a[i]); for i: =1 to 10 do begin   if a[i] = 2 then writeln('да есть'); break; end; end.

Компьютер непонятный, железный жужжит, светится, виснет можно играть в компьютерные игры хорошая