Найти произведения цифр входящих в состав данного трёхзначного числа. 20 .

Program enot; var i,a,b,s: integer; begin read(a); b: =1; s: =1; for i: = 1 to 3 do begin b: =a mod 10; s: =s*b; a: =a div 10; end; write(s); end.

Const sz = 40;   var    a: array [1..sz] of integer;   n: integer;     i: integer;   k: integer;   begin k: =50;   n : = 40;   for i: =1 to n do    a[i] : = random(100);   writeln('элементы массива: ');   for i: =1 to n do    write(a[i],' ');     writeln();     begin  for i: =1 to n do  begin  if a[i] > n then  a[i] : = -6  end; writeln('заменяем элементы > 50 на -6: ');   for i: =1 to n do    write(a[i],' ');     writeln();   end; end.

Если взглянуть на мировую , то становится понятным, что человечество постоянно развивается, улучшая технологии, обогащая свой опыт и знания. и то, что ещё недавно казалось чем-то невероятным, уже через пару десятков лет воспринимается как нечто вполне обыденное. именно так компьютеры, появившись сравнительно недавно, прочно вошли в нашу повседневную жизнь, точно так же, как  полиэтиленовые пакеты  или телевидение. сегодня не иметь дома этого высокотехнологичного устройства считается едва ли не дурным тоном. хотя для многих вопрос о том, зачем же нужен пк, до сих пор остаётся открытым. в первую очередь необходимо вспомнить о том, что эта железная коробка для немалой части населения является единственным источником заработка. безусловно, способствует этому ещё одно изобретение человечества – интернет. виртуальный мир предлагает пользователям самые разные возможности заработка, от написания текстов до создания или продвижения сайтов. достаточно много специалистов, которые прекрасно себя чувствуют в статусе фрилансеров и занимаются такими вещами, как: проведение онлайн-обучения,  разработка бренда  компании и многими другими.