Рассмотрите рисунок Определите характеристики процессора указаны на рисунк У НАС СОР​

1.y=m1*m2/Sqr(r)

2. Program my;

var S,a,b,h:real;

begin

write('Введите длины оснований и высоты');

readln(a,b,h);

S:=(a+b)*h/2;

readln(S);

end.

3. Program my;

var a:integer;

begin

writeln('Введите трехзначное число');

readln(a);

If (a mod 10=7) then write('Данное число заканчивается на 7');

else write('Данное число не заканчивается на 7');

end.

4.Program my;

var a,b,:integer;

begin

readln(a,b);

If (a>b) then writeln(Sqr(a), b+10);

If (a=b) then writeln('Числа равны');

If (a<b) then writeln(Sqr(b), a+10);

end.

5. 

Program my;
var a,b,c:integer;
begin
Readln(a,b);
For c:=a to b do
if (c mod 10=0) then
writeln (c);
end.

 

1) 513 =512+1 =2^9+2^0 =1000000001 (2)
  число разбиваем на суммы слагаемых  степеней числа 2 (например, число 99=64+35=64+32+3=64+32+2+1=2^6+2^5+2^1+2^0=1100011(2)  )
2)  делим на 2, пока не получим число меньше 2 то есть 1 (дробная часть отбрасывается)

513   256   128   64   32   16   8   4   2   1    если четно внизу пишем 0 иначе 1
1          0       0      0     0     0   0   0   0   1       собираем цифры с конца на начало  

513=1000000001 (2)
3)    513 | 2
        512|
           1     256 | 2
                  256 |
                      0   128 | 2
                           128 |
                               0   64  |  2
                                    64  |  
                                      0     32 |   2
                                             32 |
                                               0    16   |   2
                                                     16   |  
                                                       0      8   |  2
                                                               8   |  
                                                               0       4   |  2  
                                                                        4   |
                                                                        0      2  |  2 
                                                                                2  |  
                                                                                0       1            
          
             Собираем остатки при вычитании 0 и 1 с конца  до начала 
Еще вариант на калькуляторе (для проверки)