Алгоритм вычисления функции fn,где n-натуральное число,задан следующими соотношениями: f1=1; f2=1; fn=fn-2+fn-1 при n< 2 чему равно f5?

279

290

Посмотреть ответы 2

Ответы на вопрос:

Zheka1163

Информатика

4,7(16 оценок)

Ошибка в условии! fn=fn-2+fn-1 при n> 2! программа для вычисления fn (вместо 5 можно поставить другое число): var f1,f2,fn,i: integer; begin f1: =1; f2: =1; for i: =3 to 5 do begin fn: =f1+f2; f1: =f2; f2: =fn; end; writeln('fn=',fn); end. f3=1+1=2; f4=1+2=3; f5=2+3=5

aygi777

Информатика

4,6(33 оценок)

В"старом" стиле: var a, h: real; begin writeln('введите длину стороны и длины проведённой к ней высоты: '); readln(a, h); writeln('площадь треугольника равна ', a * h / 2) end. тоже самое, но в немного осовремененном виде (у меня запускается на pascalabc.net 3.3 сборка 1531, если у вас не работает - обновите программу): begin var (a, h) : = readreal2('введите длину стороны и длины проведённой к ней высоты: '); println('площадь треугольника равна', a * h / 2); end.