var a:integer;
function F(a:integer):integer;
var Max,x:integer;
begin
Max:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>Max then Max:=x;
end;
F:=Max;
end; {F}
function F1(a:integer):integer;
var Min,x:integer;
begin
Min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x<Min then Min:=x;
end;
F1:=Min;end; {F1}
begin
Write('Введите число-');
readln(a);
Writeln('Максимальная цифра в числе: ',F(a));
Writeln('Минимальная цифра в числе: ',F1(a));
end.
Пример:
Введите число-31842
Максимальная цифра в числе: 8
Минимальная цифра в числе: 1
это стандарт на программный инструментарий для обеспечения связи между отдельными процессами параллельной задачи. MPI предоставляет программисту единый механизм взаимодействия процессов внутри параллельно исполняемой задачи независимо от машинной архитектуры (однопроцессорные, многопроцессорные с общей или раздельной памятью), взаимного расположения процессов (на одном физическом процессоре или на разных) и API операционной системы. Программа, использующая MPI, легко отлаживается и переносится на другие платформы, часто для этого достаточно простой перекомпиляции исходного текста программы.
