вот программа ее можно обернуть функцию тогда будет более функционально а так тут просто цикл и работа со строками я тебе два варианта дал сам выберишь какой лучше
Var s:string;
i:integer;
begin
readln(s);
write(s[1] + s[3] + s[2]);
end;
9+9+9+9+9=45
число 99 999
99999:9=11111 на этом месте будет стоять заказанное по условию число.
Жили-были в одном селе маленькие счетики.Такие.на которых весь день перебирали косточками и складывали числа.Одна косточка,плюс одна косточка...Как часики-тик-так.Тик-так. Шло время,счетики становились все взрослее и взрослее,а потом и вовсе состарились. Не старилось только время.Оно всё бежало вперёд и вперед. И задумались счетики над тем,что время далеко убежало,его не догнать.и счетиками почему то стали пользоываться всё меньше и меньше И стало счетикам грустно.На них уже никто не складывал косточку к косточке.Отправились счетики вслед за временем. будущее.Ах ! Что за прекрасное будушее открылось перед глазами маленьких счетиков !!!! Огромные вычислительные машины.Они смотрели на счетики как-то свысока и очень строго. А время было не догнать, оно опять убежало вперед. Побежали за ним наши счетики и очутилтись в прекрасной стране под названием "ЗДЕСЬ И СЕЙЧАС ".А в этом времени на счетики смотрели компьютеры. -Что это?- подумали счетики. -Что за странные создания ? А компьютеры ,увидев счетики,ничуть не удивились, ведь в их памяти было заложено,что счетики-это их прабабушка ! Они даже были очень довольны этой встрече,потому что благодаря маленьким счетикам стараниями многих человеческих умов компьютеры появились на свет.
Const
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Write('Введите оценки через пробел ');
s := 0;
for i := 1 to n do
begin
Read(a[i]);
s := s + a[i]
end;
Writeln('Средний балл равен ', s / 10:0:2)
end.
Тестовое решение:
Введите оценки через пробел 4 5 3 4 4 5 3 5 5 4
Средний балл равен 4.20
var
k, n: longint;
i, m, s: integer;
begin
Write('Введите натуральное число '); Readln(n);
m := n mod 100000;
k := 10000;
for i := 1 to 4 do
begin
s := s + (m div k);
m:=m mod k;
k := k div 10
end;
s:=s+m;
Writeln('Сумма последних пяти цифр числа равна ', s)
end.
Тестовое решение:
Введите натуральное число 123456789
Сумма последних пяти цифр числа равна 35
