Решите очень это задание в delphi

Вот на С++:

#include <iostream>
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long double ld;
typedef long long lol;
typedef long int  li;#define mp          make_pair
#define F           first
#define S           second
#define sqr(a)      ( (a) * (a) )
#define pb          push_back
#define INF         999999999
#define ret(a)      cout << endl; system("pause"); return(a)
//#define ret(a)      return(a)using namespace std;int main()
{
    ld x;
    cin >> x;
    x = ( 8 / sqrt( x ) ) + sqrt(x);
    cout << x;
    ret(0);
}

Сколько бит информации в кодировке KOI-8 в слове ОГЭ  

3 символа * 8 бит/символ = 24 бит

Девочка заменила каждую букву своего имени ее номером в алфавите. Получилось 201141181. Как зовут девочку?

20-1-14-1-18-1 ТАМАРА

Укажите верное утверждение: *

1 Кбайт > 1000 байт

Статья, набранная на компьютере, содержит 25 страниц, на каждой странице 40 строк, в каждой строке 64 символа. Определите информационный объём статьи в одной из кодировок Unicode, в которой каждый символ кодируется 16 битами

K = 25 * 40 * 64 шт = 64000 шт

i = 16 бит

Вес текста I = K * i = 64000 * 16 бит = 1024000.0 бит

1024000.0 бит = 128000.0 байт = 125.0 Кбайт

Переведите число 123 из десятичной системы счисления в двоичную систему счисления. Сколько единиц содержит полученное число? В ответе укажите одно число – количество единиц

"1111011" => 6 единиц  

Определите значение переменной а после выполнения данного алгоритма:  

a:=2  

b:=5  

b:=4+a*2*b  = 4+2*2*5 = 24

a:=b/4*a = 24/4*2 = 12