Школьный уровень

[тиму]

1. Последовательно вводятся n действительных чисел(n<=20). Вычислить среднее арифметическое этих чисел.
2. Составить программу для определения, является ли натуральное число k степенью числа 3.
помогите пожалуйста

[Вадим Мошев]

Сделал за вас почти всё. Вам осталось объявить переменные, написать ввод исходных данных и вывод результатов

1

avg:=0;
for i:=1 to N do begin
	avg:=avg + a[i]/N;
end;

2 (один из вариантов реализации)

a:=exp((1/3)*ln(k)); {извлечём кубический корень}
if frac(a) <= 0.000001 then begin
	writeLn('Является')
end else begin
	writeLn('Не является')
end;

[тиму]

Я в этом деле совсем ноль ... Скоро подтяну.... Поэтому и прошу всю программу пожалуйста;(((

[Вадим Мошев]

Прямо сейчас садитесь и смотрите, как объявлять переменные, как вводить значения переменных, как выводить, тем более, что вывод в моей программе уже имеется в некоторой степени.

[тиму]

Сообщение от Вадим Мошев

Прямо сейчас садитесь и смотрите, как объявлять переменные, как вводить значения переменных, как выводить, тем более, что вывод в моей программе уже имеется в некоторой степени.

Спасибо))))

[Naive]

Сообщение от Вадим Мошев

2 (один из вариантов реализации)

a:=exp((1/3)*ln(k)); {извлечём кубический корень}
if frac(a) <= 0.000001 then begin
	writeLn('Является')
end else begin
	writeLn('Не является')
end;

мне кажется проще было бы запустить вайл с делением на 3, пока параметр больше единицы. Вконце определить, если результат равен 1, значит исходник - степень тройки, в противном случае - нет.

[Stilet]

мне кажется проще было бы

Присоединяюсь.

[Аватар]

А если в числе 200 цифр? Или намного больше

PS - без длинной арифметики

[Poma][a]

А если в числе 200 цифр? Или намного больше

Не судьба

Я дык за перевод в 3-ичную и проверки на нолики.. ток 200 цифр все снова портят.. а признак не хочется

[Аватар]

Судьба, судьба. Вспомни признак делимости на 3