Написать проект: "мой карьерный рост в одной из самых перспективных профессии xxi века". определим срок достижения цели - 5 лет. очевидно, для того чтобы быть хорошим специалистом, имеющим опыт, необходимо определить по достижению цели - пути профессионального самосовершенствования. наводящие вопросы к проекту: -какую нужно выбрать на первом этапе? -где получить навыки работы в команде, как сформировать портфолио? -а если команда будет интернациональной? -что важно для построения карьеры и работы в интернациональной команде? -в чем проявляется гибкость ? -не находите презентовать свои наработки? -не справляетесь в одиночку с проектом? основной вывод: чтобы быть успешным, необходимо анализировать ситуацию, не бояться вызовов, определить цель, ключевые показатели по достижению каждой , ставить сроки, анализировать, тестировать свои навыки и принимать решения в зависимости от ситуации. отношение к карьере как проекту позволяет всегда четко понимать на каком этапе вы находитесь, что нужно сделать, грамотно использовать свои ресурсы (время и деньги), а также отслеживать продвижение к цели.предложений 10-15.
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.
begin
k:=0;
read (a1,a2,a3,a4,a5,a6,a7,a8);
if (a1>0) and (a2>0) and (a3>0) and (a4>0) and (a5>0) and (a6>0) and (a7>0) and (a8>0) then
begin
if (a1 mod 3 = 0) and (a1 mod 10 = 4) then k:=k+1;
if (a2 mod 3 = 0) and (a2 mod 10 = 4) then k:=k+1;
if (a3 mod 3 = 0) and (a3 mod 10 = 4) then k:=k+1;
if (a4 mod 3 = 0) and (a4 mod 10 = 4) then k:=k+1;
if (a5 mod 3 = 0) and (a5 mod 10 = 4) then k:=k+1;
if (a6 mod 3 = 0) and (a6 mod 10 = 4) then k:=k+1;
if (a7 mod 3 = 0) and (a7 mod 10 = 4) then k:=k+1;
if (a8 mod 3 = 0) and (a8 mod 10 = 4) then k:=k+1;
writeln (k);
end else
writeln ('Неверный ввод');
end.