М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Kymir1
Kymir1
20.07.2022 14:56 •  Информатика

Алгоритм вычисления значения функции f(n), где n - натуральное число, задан следующими соотношениями: f(1) = 1 f(n) = f(n-1)*(2*n - 1), при n > 1 чему равно значение функции f(5)?

👇
Ответ:
IAmCookie
IAmCookie
20.07.2022
Решаем рекурсивно, можно и другими ответ 87
Алгоритм вычисления значения функции f(n), где n - натуральное число, задан следующими соотношениями
4,7(15 оценок)
Открыть все ответы
Ответ:
kotsdanil778
kotsdanil778
20.07.2022
Var
a,b,c,p,s:real;
m:integer;
begin
 repeat
   writeln('a,b,c &'); 
   readln(a,b,c); {Вводим стороны до тех пор пока не выполнится условие сущ треуг}
 until (a<b+c)and(b<a+c)and(c<a+b);
   writeln('площадь - введите 1 или периметр -2 ?');
{выбираем что считать, если площадь, то вводим 1, периметр - 2}
readln(m); 
   case m of   
     1:
        begin
            p:=(a+b+c)/2;
            writeln('S = ',sqrt(p*(p-a)*(p-b)*(p-c))); {вывод площади}
        end;
      2:writeln(a+b+c); {вывод периметра}
     end;
end.
     программа 2 Нахождение суммы элементов одномерного массива
const
n=10;
Var
a:array[1..n]of integer;
i,s:integer;
begin
   for i:=1 to n do
         begin
              a[i]:=random(100); {заполнение массива случайными числами [0.100)}
              write(a[i]:4); {выводим на экран массив}
              s:=s+a[i];   {считаем сумму}
         end;
writeln;
writeln('S= ',s); {выводим сумму}
end.
4,7(96 оценок)
Ответ:
2ewgv423t
2ewgv423t
20.07.2022
Var A:array[1..10000] of integer;
i,NOD,NOK,k,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Введите числа (',N,' шт.): ');
For i:= 1 to N do
    Read(A[i]);
{Поиск НОК}
NOK:=abs(A[1]);
For i:= 2 to N do
    if abs(A[i])<NOK then NOK:=abs(A[i]);
if NOK = 0 then NOK:=1;
Repeat
k:=0;
For i:= 1 to N do
    if A[i] mod NOK = 0 then k:=k+1;
NOK:=NOK-1;
Until k=N;
WriteLn('NOK = ',NOK+1);
{Поиск НОД}
NOD:=A[1];
For i:= 2 to N do
    if abs(A[i])>NOD then NOD:=A[i];
Repeat
k:=0;
For i:= 1 to N do
    if NOD mod A[i] = 0 then k:=k+1;
NOD:=NOD+1;
Until k=N;
WriteLn('NOD = ',NOD-1)
End.
4,6(72 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ