Задача на паскали. Построить последовательность из чисел Фибоначчи до N-го элемента.
Этот параметр (кол-во элементов) задается с экрана. Реализовываем ее НЕРАЦИОНАЛЬНО!, БЕЗ ПРОЦЕДУР!
Последовательность нужно записать как:
fib0 = 1
fib1 = 1
fibn = fibn-1 + fibn-2
daa86
3
07.05.2020 12:17
4
Другие вопросы по теме Другие предметы
Taddi
13.09.2021 22:36
shikunovnikitkp00sz1
19.05.2021 12:31
alexandrustino1
19.05.2021 12:31
2005161718
23.10.2020 22:06
saschaalexandrova
23.10.2020 21:56
Pinno4ka
23.10.2020 21:55
ksenia20062
23.10.2020 21:55
gopkomaks
23.10.2020 21:55
nadijagordijenp07vwr
23.10.2020 21:54
Lbailieva
23.10.2020 21:54
Популярные вопросы
- Решить линейное уравнение x - 3 шестых =7 девятых как записывать дроби?...
3 - Составьте небольшой рассказ ,используя эти слова-кот ,двор ,пёс,косточка,лаял,шипеть,гулял,рыжий,убежал....
3 - Найти значения выражения: (73+a)-16 при a=27; 36...
1 - Укажiть однозвучнi з прислiвниками iменники з прийменниками! у горi над нами...
3 - Сколько можно составить двухзначных чисел используя только цифры 3,4,5? сколько...
3 - 7класса. на доске записано некаторое число. один ученик увеличел это число...
3 - Длина прямоугольника 4 см. какой должна быть его ширина,чтобы периметр прямоугольника...
2 - Напишите сочинение о своих впечатлениях от картины и.и бродского летний сад...
1 - Іть будь-ласка написати твір на ійській мові на тему мій друг.дуже треба....
1 - Доклад ,,вода-голубое богатство планеты...
1
№1 1)2)
var a:array[1..5]of integer;
i:byte;
begin
for i:=1 to 5 do
readln(a[i]);
writeln();
for i:=1 to 5 do
if (a[i]>0) and (a[i]<10) then begin
writeln(a[i]);
end;
end.
Объяснение: