Напишите программу, вычисляющую и выводящкю 10 первых членов последовательности фибоначчи

170

353

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

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

Dizig

Информатика

4,8(40 оценок)

Var f1,f2,f,i: integer; begin f1: =1; f2: =1; write(f1,' ',f2,' '); for i: =3 to 10 do begin f: =f1+f2; write(f,' '); f1: =f2; f2: =f; end; writeln; end. результат: 1 1 2 3 5 8 13 21 34 55

DarkoRei

Информатика

4,8(43 оценок)

Const n = 20; var a: array[1..n] of integer; i, t, min1, min2: integer; begin writeln('введите ', n, ' элементов массива'); for i : = 1 to n do read(a[i]); min1 : = 32767; min2 : = min1; for i : = 1 to n do begin if min2 > a[i] then min2 : = a[i]; if min1 > min2 then begin t : = min1; min1 : = min2; min2 : = t end; end; writeln('первый минимум равен ', min1, ', второй минимум равен ', min2) end. тестовое решение: введите 20 элементов массива -5 4 12 8 -7 0 5 9 11 -4 -9 13 0 4 -8 12 -11 7 4 1 первый минимум равен -11, второй минимум равен -9