Программа для подсчета стоимости покупки шоколада(2р50к) и мороженого(1р80к) в ABC Pascal Кол-во ввести с клавиатуры
​

Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули

"11001100100110101011111001101111"

Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс

11001100{2} = 204{10}

10011010{2} = 154{10}

10111110{2} = 190{10}

01101111{2} = 111{10}

IP = 204.154.190.111

"11011100111000111110001001110010"

Запишем 32-значное двоичное число без лишних знаков. При необходимости добавляем ведущие нули

"11011100111000111110001001110010"

Разделим на 4 группы по 8 цифр и переведем их в 10ричную сс

11011100{2} = 220{10}

11100011{2} = 227{10}

11100010{2} = 226{10}

01110010{2} = 114{10}

IP = 220.227.226.114

Var a: array[1..5,1..5] of integer;
i,j,p,s: integer;
begin 
Writeln('Введите элементы матрицы: '); 
 for i:= 1 to 5 do  
  for J:=1 to 5 do   
read(a[i,j]);     
  for i:= 1 to 5 do   
begin 
  for j:= 1 to 5 do 
  write(A[i,j], ' '  ) ;     
  writeln();   
 end;         
 p:= 1; 
  s:= 0;   
 for i:= 1 to 5 do  
  for J:=1 to 5 do 
   if a[i,j] > 0 then 
     begin 
   s:= s+1;   
  p:= p*a[i,j];     
   end;   
 Writeln('Количество положительных элементов = ', s);    Writeln('Произведение положительных элементов = ', p); 
   end.