Модифицируйте решение предыдущей задачи, так, чтобы длина возрастающего фрагмента каждый раз увеличивалась на единицу (начиная с двух)
ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно), при этом решение одним циклом можно сделать, как используя делимость нацело (для определения момента вывода тройки), так и не используя.
Решите всеми тремя способами.
var s:string; i, n: Integer;
a: array[1..8] of char;
begin
writeln('Vvedite stroku');
readln(s);
n := 1;
while(n<10) do // 1-8
begin
for i:=1 to Length(s) do
if (s[i]>='0')and(s[i]<='9') then
begin
a[n]:=s[i];
inc(n);
end;
end;
for i:=low(a) to high(a) do
write(a[i],' '); // выводим массив
readln();
end.
Дано натуральное число N. Вычислите сумму его цифр.
(При решении этой задачи нельзя использовать строки, списки, массивы (ну и циклы, разумеется). Разрешена только рекурсия и целочисленная арифметика. Используйте операцию получения остатка от деления, и операцию целочисленного деления).
Пользователь получает на вход целое положительное число N напишите рекурсивную функцию, которая вернет число Фиббоначи стоящии под этим номером
var
n: integer;
function fibonachi(n: integer): integer;
begin
if(n = 0) then
result := 0
else if(n = 1) then
result := 1
else
result := fibonachi(n - 1) + fibonachi(n - 2);
end;
begin
write('Vvedite chislo: ');
readln(n);
writeln();
writeln(fibonachi(n));
readln();
end.