Последовательность чисел Фибоначчи:
1, 1, 2, 3, 5, 8, 13, 21, 34
Т.е., каждый следующий член определяется как сумма двух предыдущих.
Число 39 - это 34 и 5, т.е. сумма 9-го и 5-го чисел.
следовательно в Фибоначчиевой СС 39 это 10000000 + 1000 = 10001000
Предполагается, что будет введено минимум одно значение. <span>var
max,a : integer;
begin
readln(a);
max := a;
repeat
readln(a);
if (a > max) and (a <> 0) then
max := a;
until a = 0;
writeln(max);
readln;
end.</span> <span>P.S. Если понравилось решение не забудь отметить как лучшше. </span>
Вот как выглядит решение без лишних комментариев (см . прикрепленный файл)
Все во вложении,там в ворде блок схема,в тестовике прога,просто формат на bas поставь и компилируй свободно
Сама прога:
PRINT "Vvedite chislo x!"
INPUT x
CLS
SCREEN 12
IF x > 0 THEN
CIRCLE (15, 20), 5, 15
ELSE
LINE (15, 200)-(200, 300), 5, BF
END IF
END