Предмет: Информатика,
автор: SheffryHero
Чему равно значение функции F(99)+F(100)? Pascal
Приложения:

Ответы
Автор ответа:
1
Ответ:
107875178
Пример решения на языке PascalABC.NET:
function F (n:real):real;
begin
if n <=5 then result:=n*2 else
if (n>5) and (Frac(n/2) = 0) then result:=(F(n-2)+3*F(n/2)) else
if (n>5) and (Frac(n/2) <> 0) then result:=(F(n-1)+F(n-2)+F(n-3));
end;
begin
var D:=F(99)+F(100);
writeln('Результат вычислений: ',D);
end.
Похожие вопросы
Предмет: Другие предметы,
автор: ЕркебуланМанкеев
Предмет: Українська література,
автор: zory65
Предмет: Химия,
автор: Ksu252001
Предмет: Математика,
автор: анастасия1568
Предмет: История,
автор: Подпишись1