begin p := 1; s := 0; read(n); while n > 0 do begin if(n div 10 <= 0) then s := (n mod 10); p := p * (n mod 10); n := n div 10; end; if(s <> p) then write('В ', p / s, ' раз') else write('В ', 0, ' раз') ; end.
Для примера со сложением чисел 25 учениками попробуйте проанализировать следующие ситуации: в классе всего 1 кусок мела; в классе 5 кусков мела; в классе 25 кусков мела. оцените, как от этого зависит время решения (учтите ещё ширину доски и время перемещения учеников по классу) попробуйте построить модель такого процесса. переведите эту ситуацию на язык компьютерной терминологии для многопроцессорных систем. 2) попробуйте примеры алгоритмов поиска информации в массиве и сортировки массива, которые допускают распараллеливание операций. опишите процедуру распараллеливания. сколько процессоров необходимо для эффективного распараллеливания в вами примере?
n, i, p, s: integer;
begin
p := 1;
s := 0;
read(n);
while n > 0 do
begin
if(n div 10 <= 0) then s := (n mod 10);
p := p * (n mod 10);
n := n div 10;
end;
if(s <> p) then write('В ', p / s, ' раз')
else write('В ', 0, ' раз') ;
end.