ИНФОРМАТИКИ Я ВООБЩЕ НЕ ПОНИМАТЬ

ИНФОРМАТИКИ Я ВООБЩЕ НЕ ПОНИМАТЬ

1)
var
a,b,sum : integer;
begin
Readln(a, b);
if (a mod b = 0) then
  begin
  while a > 0 do
    begin
      sum:= sum + (a mod 10);
      a:= a div 10;
    end;
  if sum > b then
    begin
    Writeln('Верно');
    halt;
    end;
  end;
Writeln('Неверно');
end.

Пример:
1234 2
Верно

2)
var
i: integer;
begin
For i:= 100 to 999 do
  if (i*i)mod 1000 = i then Write(i, ' ');
end.

Результат:
376 625

3)
var
i,n : integer;

function Simple(n: Longint): boolean;
var
  i: Longint;
begin
  for i := 2 to Round(Sqrt(n)) do
    if n mod i = 0 then
      break;
  Simple := n mod i <> 0;
end;

begin
  Read(n);
  For i:= 1 to Round(Sqrt(n)) do
     if n mod i = 0 then
       if (Simple(i))and(Simple(n div i)) then
        begin
        Writeln('YES');
        halt;
        end;
  Writeln('NO');
end.

Пример:
33
YES

using System;

namespace Dvumerni_Случайные_числа

{

   class Program

   {

       static void Main(string[] args)

       {

           //Случайный размер массива от 5 до 10 элементов

           Random Value = new Random();

           int RazmerMassiva = Value.Next(5,10);  

           //Объявление массива с случайным размером элементов

           int[] Massiv_1 = new int [RazmerMassiva];

           //Заносим случайные значения в массив от 1 до 5

           Random RandomCifr = new Random();

           for (int i = 0; i < Massiv_1.GetLength(0); i++)

               Massiv_1[i] = RandomCifr.Next(1,5);

           //Обьявление переменных чтобы работать в цикле "While"

           int proverochka = 0;

           int schetchikIndekca = 0;

           /*Обьявление нового массива (Massiv_2),который будет по размеру таким же как размер массива "Massiv_1"  

           И будет принимать его значения увеличенные на 15 в цикле "While" */

           int[] Massiv_2 = new int[Massiv_1.Length];

           //Увеличиваем значения в Massiv_1 на 15 и заносим их в Massiv_2

           while (Massiv_1.Length > proverochka)

           {

               Massiv_2[schetchikIndekca] = Massiv_1[schetchikIndekca] + 15;

               proverochka++;

               schetchikIndekca++;

           }

           //Выводим новый массив (Massiv_2) в консоль чтобы посмотреть как отработала программа

           foreach (var item in Massiv_2)

                Console.WriteLine(item);

       }

   }

}

Объяснение: Программа выполнена в C#. Не было указано на каком языке нужно выполнять.