1. даны два числа a и b, причем a≤b. сначала выведите количество целых чисел, лежащих в промежутке от a до b, потом с новой строки выведите все эти числа в порядке убывания. 2. числа фибоначчи вычисляются по следующей формуле: , , для i≥3 . таким образом, последовательность чисел фибоначчи начинается так: 1, 1, 2, 3, 5, 8, 13, … напишите программу, которая вычислит и выведет первые 30 чисел фибоначчи.паскаль

Var   a, b, h, x: real; begin   writeln('введите начальное значение, конечное значение и шаг ');   readln(a, b, h);   x : = a;   while x < = b do   begin       writeln(x: 5: 2,' ',2 * cos(x) - 1: 10: 7);       x : = x + h   end end. тест: введите начальное значение, конечное значение и шаг -1.8 1.6 0.2 -1.80 -1.4544042 -1.60 -1.0583990 -1.40 -0.6600657 -1.20 -0.2752845 -1.00  0.0806046 -0.80  0.3934134 -0.60  0.6506712 -0.40  0.8421220 -0.20  0.9601332   0.00  1.0000000   0.20  0.9601332   0.40  0.8421220   0.60  0.6506712   0.80  0.3934134   1.00  0.0806046   1.20 -0.2752845   1.40 -0.6600657   1.60 -1.0583990

Visual basic? их много, вот, например, на vb.net     sub main()         dim n as uinteger         dim num as integer         dim a as string = string.empty         n = integer.parse(console.         for i as uinteger = 1 to n             console.write(i.tostring() + " ")             num = integer.parse(console.             if num = 0 then                 a += i.tostring()             end if         next         console.writeline()         console.writeline()         console.writeline(a.length)         console.writeline()         for each i as char in a             console.writeline(i)         next         console.readkey()     end sub