Вывести на экран все двухзначные числа, которые кратны 15 в pascal abc

var

i: integer;

begin

for i: =10 to 99 do

if ((i mod 15)=0) then write(i+' ');

end.

 

 

 

 

 

 

 

 

 

 

1. в сом-технологии маршалинг используется для чего? для передачи данных по значению между com объектами 2. в сом-технологии информация   место нахождении находится сом-сервера находится где? в реестре виндовс 3. если приложение   использует сом-сервер реализованный в виде dll то это позволяет? быстро подменять dll на новую версию чтобы изменения быстро вступили в силу чтобы проверить как работает.параллельную разрабтку разных компонент 4. если приложение   использует сом-сервер реализованный в виде exe то это позволяет? каждому приложению не таскать с собой dll , обращаться к нему по имени и к одному и томуже объекту из разных мест и разных сред.использвать оопшный шаблон-подход фабрику. 5. в сом-технологии для облегчения корректного взаимодействия многопоточного клиента   и однопоточного сервера используют? межпотоковую синхронизацию

Var b: array[1..10,1..3] of integer; i,j,k,s,gi,bo: integer; begin writeln('исходный массив: '); for i: =1 to 10 do for j: =2 to 3 do b[i,j]: =random(30); k: =1; for i: =1 to 10 do begin for j: =1 to 3 do b[i,1]: =k; inc(k); end; for i: =1 to 10 do begin for j: =1 to 3 do write(b[i,j]: 5); writeln; end; for i: =1 to 10 do for j: =2 to 3 do s: =s+b[i,j]; write(' всего сотрудников в учреждении: ',s); for i: =1 to 10 do gi: =gi+b[i,2]; write(' женщин в учреждении: ',gi); for i: =1 to 10 do bo: =bo+b[i,3]; write(' мужчин в учреждении: ',bo); if (gi> bo) then write(' женщин больше') else write(' мужчин больше'); if (gi=bo) then write(' женщин и мужчин одинаковое количество'); end.