Сколько значащих нулей в двоичной записи числа 8^560 – 2^234 + 56?

Program pr;
uses crt;

Var mas:array[1..1000, 1..1000] of integer;
N,M,i,j,k:integer;

Begin
Writeln('Введите размер матрицы N*M');
Write('N = ');
readln(N);
Write('M = ');
readln(M);

if (M>1000) or (N>1000) or (M<1) or (N<1)
then  
Writeln('Ошибка, указанные значения выходят за пределы матрицы')   else   
        Begin      
 Writeln('Введите элементы матрицы');      

k:=0; 
 for i:=1 to N do     
  for j:=1 to M do     
    Begin     
      readln(mas[i,j]);       
      if (mas[i,j] mod 2 = 0) then k:=k+1;     
    end; 
  
    Writeln();   
    Writeln('Исходная матрица');
   
   for i:=1 to N do   
     Begin     
       for j:=1 to M do     
          Begin     
             Write(mas[i,j], ' ')     
           end;     
      Writeln();   
     end;         

Writeln();   
Writeln('Количество четных элементов = ',k);      
 end;

readln;
end.

ответ C#:

double i=100;

           do

           {                  

               if (i % 5 == 0)

               {                    

                   Console.WriteLine("i = " + i);

               }

               i++;

           }

           while (i < 999);

           Console.ReadKey();

Объясняю блок-схему:

i = 100: Мы присвоили значению i число 100 потому, что нам нужно начать с самого первого трёхзначного числа.

i mod 5==0: mod и % - это остаток от деления. Нам нужны все числа, которые при делении на 5 не оставляли остатка.

Вывод i: (у меня в блок-схеме опечатка, поставлена n, но должна стоять i) Числа без остатка выводятся, числа с остатком пропускают этот шаг.

i=i+1: мы увеличиваем нашу 100 на единицу, присваивая ей новое значение (т.е. 101, 102 и т.д.)

i<999: так мы постепенно увеличиваем i до последнего трёхзначного числа. Если i меньше 999, то программа возвращается с новым значением на проверку остатка от деления. Если i больше 999, то цикл и программа заканчивается.