Lazarus (Для розв`язку задач застосовувати цикл з лічильником або цикл з передумовою).
1. Знайти суму всіх послідовних цілих парних натуральних чисел від 2 до N.
(Наприклад: якщо ввести N=10, то S:=2+4+6+8+10 , якщо ввести N=9, то S:=2+4+6+8).
2. Напишіть програму, яка визначить суму доходу з вкладу S, який підприємець поклав у банк
«Промінь» на N років під 22% на рік.
(Наприклад: якщо N=2 роки, а S=100 грн., то сума доходу через 2 роки з суми 100 грн. - 48,84грн.)
3. Одноклітинна Амеба кожні три години ділиться на три клітини. Скільки буде Амеб через t годин (t
кратне 3), якщо в початковий момент була лише одна Амеба.

1. Для перевода из десятичной системы счисления в двоичную делим исходное число нацело на 2 (показатель системы в которую переводим) до тех пор, пока частное не станет меньше 2 (показателя системы в которую переводим). Далее с последнего частного (это всегда будет 1, за исключением когда исходное число равно 0) выписываем все остатки.
387:2 = 193 (остаток 1)
193:2 = 96 (остаток 1)
96:2 = 48 (остаток 0)
48:2 = 24 (остаток 0)
24:2 = 12 (остаток 0)
12:2 = 6 (остаток 0)
6:2 = 3 (остаток 1)
3:2 = 1 (остаток 1) Деление закончили, т.к. частное меньше 2.
Начиная с последнего частного выписываем число - 111000011 (2)
387 (10) = 111000011 (2).

2. В данном алфавите у нас 64 символов, т.е. для кодировки данного алфавита приходится 2^6 =64 - 6 бит на 1 символ.
Количество символов 870.
Чтобы найти информационный объем сообщения (текста) I, нужно умножить количество символов (отсчетов) N на число бит на символ (отсчет) K: 
I=N*K = 870*6 = 5220 бит.
В 1 байте 8 бит ⇒    5220 / 8 = 652.5 байт.

3. Дано: 
K=1600*1024=2^14 пикселей; Количество пикселей считается из разрешающей дисплея - произведении пикселей по горизонтали на кол-во по вертикали.
I=24 бит - битовая глубина.
Vвп=2 Мб = 2^24 бит.
Решение:
Используем формулы 
V=K*i;      Объем видеопамяти одной страницы - это произведение количества пикселей на глубину цвета в битах .
V= 2^14*3*2^3=3*2^17
m= Vвп/V, где m – это количество страниц экрана
m= 2^24/3*2^17 = (1/3) * 2^7 ≈ 42,7 страниц

4. Для хранения информации о моно звуке длительностью t секунд, закодированном с частотой дискретизации f Гц и глубиной кодирования B бит требуется t*B*f бит памяти. Для стерео звука это значение умножается на 2 (2 канала).
Получаем:
I=t*B*f  ⇒ f= I/ (B*f)
Переводим в системные единицы:
1 мин = 60 секунд.
1,3 Мбайт= 1,3*2^23 бит

Получаем:
f=1.3*2^23 / (8*60) ≈2.7*2^20 Гц = 2831155,2 ГЦ = 2,8 МГц
Но если честно, для задач школьного уровня - слишком большая частота - проверьте данные.

#include "stdafx.h"
#include <stdio.h>
#include <windows.h>

int main()  
  {
    SetConsoleCP(1251);      
    SetConsoleOutputCP(1251);  
 
int const n=3;
int mas[n][n];
int sum1, sum2;
bool magik;

for (int i=0; i<n; i++)
    for (int j=0; j<n; j++)
         {
           printf("mas[%d][%d] = ", i+1, j+1);
           scanf("%d",&mas[ i ][ j ]);
         }

printf("\nВведенная матрица:\n");
     for (int i=0; i<n; i++)
        {
             for (int j=0; j<n; j++)
                       {
                          printf("%d  ",mas[ i ][ j ]);
                       }
             printf("\n");
         }

sum1=0;
sum2=0;

for (int i = 0; i<n; i++)
     {
            sum1 += mas[ i ][ i ];
            sum2 += mas[ i ][ n-1-i ];
      }

printf("Сумма главной диагонали = %d\n", sum1);
printf("Сумма побочной диагонали = %d\n", sum2);

magik = true;
for (int i=0; i<n; i++)
    {
        if (sum1==sum2)
             {
                 sum2=0;
                 for (int j=0; j<n; j++)
                    {
                        sum2 += mas[ i ][ j ];
                     }
              } else  { magik=false; break; }
     }

if (magik==true)
     {
           for (int i=0; i<n; i++)    
               {
                   if (sum1==sum2)
                        {
                           sum2=0;
                           for (int j=0; j<n; j++)
                               {
                                   sum2 += mas[ j ][ i ];
                               }
                         }
                        else  { magik=false; break; }
                 }
       }

if (magik==true)
    printf("\nМатрица является магическим квадратом\n");  
else
    printf("\nМатрица не является магическим квадратом\n");

system("pause");
return 0;
}