4. Запишите число, которое будет напечатано в результате выполнения следующей программы
var s, n: integer;
begin
s := 32;
n := 1;
while s * n < 1000 do begin
s := s div 2;
n := n * 4
end;
writeln(n)
end.
5. Дан рекурсивный алгоритм:
procedure F(n: integer);
begin
if n > 3 then begin
F(n - 1);
F(n div 2)
end;
write(n)
end;
Запишите подряд без пробелов и разделителей все числа, которые будут показаны на экране при
выполнении вызова F(6). Числа должны быть записаны в том же порядке, в котором они
выводятся на экран