Улитка ползёт по вертикальному шесту высотой h метров, поднимаясь за день на a метров, а за ночь спускаясь на b метров. на какой день улитка доползёт до вершины шеста? программа получает на вход натуральные числа h, a, b и должна вывести одно натуральное число. гарантируется, что a> b. при решении этой нельзя пользоваться условной инструкцией if и циклами. примеры входные данные 10 3 2 выходные данные 8

uses crt; var a,b,h,h1,k: integer; beginread(h,a,b); h1: =h-a; k: =a-b; write(1+h1 div k+(h1 mod k+k-1) div k); end.

1. var a: array [1..11] of integer; i, min, imin: integer; begin for i: =1 to 10 do read(a[i]); min: =32000; imin: =0; for i: =1 to 10 do  if (a[i] mod 2) = 0 then    if a[i]< min then begin min: =a[i]; imin: =i; end; write('минимальное: ', min, ' индекс: ', imin); end.2.function  stepen(c, s: integer): integer; varj, rez: integer; beginrez: =c; for j: =1 to (s-1) do  rez: =rez*c; stepen: =rez; end; vara: array [1..11] of integer; i, min, imin: integer; beginfor i: =1 to 10 do a[i]: =stepen(2, i); for i: =1 to 10 do write(a[i], ' '); end.если возникли вопросы или ошибки в ходе работы программы, пиши в комментариях.

Const       n = 10; var       i, imin: integer;       a: array[1..n]of integer; begin       imin : = 2;       for i : = 1 to n do       begin               a[i] : = random(100) - 50;               if (i mod 2 = 0) and (a[imin] > a[i]) then                       imin : = i;       end;       writeln('a[', imin, '] = ', a[imin]);       {вторая часть}       writeln();       a[1] : = 2;       for i : = 2 to n do               a[i] : = 2 * a[i - 1];             for i : = 1 to n do               write(a[i], ' '); end.