Напишите программу для abc pascal для вывода n числа фибоначчи, где n < =40. массив не использовать

296

481

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

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

botejijofo

Информатика

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

Var a,b,c,i,n: integer; begin write('n = '); readln(n); a : = 0; write(a,' '); b : = 1; write(b,' '); for i: =3 to n do begin write(a+b,' '); c : = b; b : = a + b; a : = c end; end.

ДанилЮсупов

Информатика

4,4(46 оценок)

Type st = record iquo: integer; {целая часть} irem: integer; {числитель дроби} idiv: integer; {знаменатель дроби} end; function imax(i, j: integer): integer; begin if i > j then imax : = i else imax : = j end; function imin(i, j: integer): integer; begin if i < j then imin : = i else imin : = j end; function fr(i, j, k: integer): st; var nmax, nmin: integer; begin nmax : = imax(imax(i, j), k); nmin : = imin(imin(i, j), k); with result do begin iquo : = nmax div nmin; idiv : = nmin; irem : = nmax mod nmin end end; var a, b, c: integer; r: st; begin write('введите через пробел три целых числа: '); readln(a, b, c); r : = fr(a, b, c); writeln('результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv) end. тестовое решение: введите через пробел три целых числа: 343 253 37 результат работы функции: 9 целых и 10/37