помогите решить

[Nick]

помогите решить :
1) определить число, получаемое выписыванием в обратном порядке цифр заданного числа.(цикл While)
2) вычислить дробную часть среднего геометрического 3 заданных положительных чисел(линейный)
3)написать программу, которая вводит с клавиатуры 5 дробных чисел и вычисляет их среднее арифметическое.(цикл FOR)
Заранее благодарю!

 

[morpheus]

Сколько платите?

 

[root]

Для: Morpheus
На полном "интуазизме" h34r:

 

[root]

var
ArrayAR: array of real;
i: integer;
res: real;
begin
SetLength(ArrayAR, 5);
for i:=1 to 5 do
begin
readln(ArrayAR[i]);
res:= res+ArrayAR[i];
end;
res:= res/5;
writeln(' среднее арифметическое: ', res);
readln;


end.

это ка бы демо.... ну есть же в программах h34r:

 var
ArrayAR: array of real;
i: integer;
res: real;
begin
SetLength(ArrayAR, 3);
for i:=1 to 3 do
begin
readln(ArrayAR[i]);
res:= res+ArrayAR[i];
end;
res:= exp(1/3*ln(res));
writeln('Среднее геометрическое: ', frac(res));
readln;


end.

Первое задание очень сложно сделать там нужно использовать таблицу векторов прерываний.:blink:

 

[Nick]

спасибо за решение!

Всем привет из Казахстана

 

[Barmutik]

Программист .. это звучит гордо Мда...