Решение практических задач

Числовые последовательности можно задать следующими способами:

Какой результат получится после выполнения следующей программы

var k,s : integer;
begin
k:=17;
if k div 2 >7 then s:=k mod 2 else s:= k div 2;
writeln(s);
end.

Введите значение следующего элемента числовой последовательности 2, 4, 8, 16, 32, ...

Числа Фибоначчи – это элементы числовой последовательности
1, 1, 2, 3, 5, 8, 13, 21, …, в которой каждое последующее число, начиная с 3-го, равно сумме двух предыдущих. Найдите значение следующего элемента этой последовательности:

Какой результат получится после выполнения следующей программы, если k = 6

var k, a: integer;
begin
write('Количество k=');
read(k);
for var n :=1 to k do
begin
a:= 2*n;
write(a, ' ');
end;
end.

Выберите формулу вычисления элемента в приведенной программе:

var k, a,n: integer;
begin
write('Введите количество нечетных чисел k=');
read(k);
for n :=1 to k do
begin
.............
write(a, ' ');
end;
end.