Перевести из 10й системы счисления в 2ю числа: 95, 121, 128, 64, 30 перевести из 2й системы счисления в 10ю числа: 10110, 110001, 101011

Div - целая часть от деленияmod - остаток от деления95 div 2 = 4795 mod 2 = 147 div 2 = 2347 mod 2 = 123 div 2 = 1123 mod 2 = 111 div 2 = 511 mod 2 = 15 div 2 = 25 mod 2 = 12 div 2 = 12 mod 2 = 01 div 2 = 01 mod 2 = 1 95  -1011111, 121 -1111001, 128 -1000000064 - 1000000, 30 - 11110 обратно в десятичную 10110 = 2^4*1 + 2^3*0 + 2^2*1 + 2^1*1 + 2^0*0 = 16 + 0 + 4 + 2 + 0 = 22 110001= 2^5*1 + 2^4*1 + 2^3*0 + 2^2*0 + 2^1*0 + 2^0*1 = 32 + 16 + 0 + 0 + 0 + 1 = 49 101011 =2^5*1 + 2^4*0 + 2^3*1 + 2^2*0 + 2^1*1 + 2^0*1 = 32 + 0 + 8 + 0 + 2 + 1 = 43

// pascalabc.net 3.1, сборка 1179 от 29.02.2016 function isprime(n: integer): boolean; begin   result: =range(2,round(sqrt((i-> n mod i< > 0) end; begin   var n: =9;   var a: =matrixrandom(n,n,3,15);   var k: =0;   for var i: =0 to n-1 do begin       for var j: =0 to n-1 do begin           write(a[i,j]: 3);           if isprime(a[i,j]) then inc(k)           end;       writeln       end;   writeln('простых чисел: ',k) end. тестовое решение:   12 15 13  5  8  5 11 14  9   7  7 14 10  5 10  9 12  3   8  8 10  7 12 14  7  6  9   13 13  7  6  4  9 13 10 11   15  4 11 12 11  4 12  8  9   7  6 14  5 10 15  6  7  9   4  7  6 14 13  5 11 13  3   4  4  5  7 12 10 14  9 11   7 12 13  8 10  6  8  3 15 простых чисел: 32

1.

var arr: array[1..6] of integer;

var i, summ: integer;

begin

 summ:= 0;

 for i:=1 to 6 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 6 do

   begin

       if arr[i]>4 then

           summ := summ+arr[i];

   end;

   

 writeln(summ);

end.

--------------------------------

var arr: array[1..7] of integer;

var i, mult: integer;

begin

 mult:= 1;

 for i:=1 to 7 do

 begin

   readln(arr[i]);

 end;

   

 for i:=1 to 7 do

   begin

       if arr[i]>0 then

           mult := mult*arr[i];

   end;

   

 writeln(mult);

end.

----------------------------

Краткий гайд

i - переменная-счётчикarr - массив, с которым производятся операцииsumm - (в первом задании - переменная, отвечает за сумму элементовmult - (во второй части) отвечает за произведение