Если n - натуральное число, то
// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
1.Step.Select(n->2*n+3).TakeWhile(a->a<100).Println
end.
<u><em>Результат:</em></u>
5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63 65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95 97 99
1.
integer: b, d;
real : e,h;
bool: c,j;
char: A, f, j , i;
2.
256
3.
a = 32
4.
a = 40
5.
b = 48
111, 34, 76, A2 -------------------------
#include <iostream>
#include <string>
using namespace std;
string dectobin(int num) // функция для перевода
{
string result; // строка для результата
for (; num!=0; num>>=1) // цикл со сдвигом вправо на 1 бит (работает быстрее чем деление на 2,
//но также делит)
result.insert(0, num&1 ? "1" : "0"); // вставка цифры в начало строки (1 если последний бит 1, 0 если 0)
return result; // возврат результата
}
int main(int argc, char *argv[])
{
// тут думаю понятно, ввод данных и вызов функции
int num;
cout<<"Enter number: ";
cin>>num;
cout<<dectobin(num);
return 0;
}
CLS
RANDOMIZE TIMER
DIM a(10)
FOR i=1 TO 10
a(i) = INT(RND * 21) - 10
NEXT i
n=0
FOR i=1 TO 10
IF a(i)>=-3 AND a(i)<=3 THEN n=n+1
NEXT i
PRINT n
END