<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
procedure СредняяЦифра(Число: int64; var Цифра: integer);
begin
var СтроковоеПредставление := Число.ToString;
var ЧислоРазрядов := СтроковоеПредставление.Length;
var ПозицияЦифры := ЧислоРазрядов div 2 + 1;
Цифра := СтроковоеПредставление[ПозицияЦифры].ToDigit
end;
begin
var ЗаданноеЧисло: int64;
Read(ЗаданноеЧисло);
var ИскомаяЦифра: integer;
СредняяЦифра(ЗаданноеЧисло, ИскомаяЦифра);
ИскомаяЦифра.Println
end.
<h2>Пример</h2><h2>123643523</h2><h2>4 </h2>
Pascal
var n,a:integer;
s,x,si:real;
begin
readln(x,n);
si:=sin(x);
for a:=1 to n do
begin;
s:=s+si;
si:=sin(si);
end;
writeln(s);
end.
Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.