var s, n: integer;. readln(s);. while s < 45 do begin. writeln(n)

⇐ ПредыдущаяСтр 2 из 2

var s, n: integer;

begin

readln(s);

n := 2;

while s < 45 do begin

s := s + 3;

n := n * 2

end;

writeln(n)

end.

16) Алгоритм вычисления функции F(n), где n – целое неотрицательное число, задан следующими соотношениями:

F(0) = 1

F(n) = F(n–1) + F(n–2), при чётном n > 0

F(n) = 1,5*F(n–1), при нечётном n > 0

Сколько различных цифр встречается в целой части значения функции F(15)?

17) В файле 17-205.txt содержится последовательность целых чисел. Элементы последовательности могут принимать целые значения от –10 000 до 10 000 включительно. Определите и запишите в ответе сначала количество пар элементов последовательности, в которых разность элементов чётна и кратна 37, затем максимальную из сумм элементов таких пар. В данной задаче под парой подразумевается два идущих подряд элемента последовательности.

24) Текстовый файл 24-5.txt содержит последовательность из символов «(»и «)», всего не более 10⁶ символов. Определить максимальное количество подряд идущих открывающих скобок «(» в этом файле.

⇐ Предыдущая 12