Складіть програму обчислення добутку другої та третьої цифр цілого чотирьохзначного числа. Екран повинен мати вигляд: Введіть чотирьохзначне число: 3456 4х5=20

ответ:

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

киберленинка:

1. 
var 
n,i,k,sum,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;

for i:=1 to k do begin
g:= n mod 10;
sum:= sum + g;
n:=n div 10;
end;
if sum> 10 then
writeln('верно')
else
('неверно');
end.

2.
var 
n,i,k,p,h,g:integer;

begin
readln(n);
g:=n;
while n<>0 do begin
 g:= g div 10;
 k +=1;
end;
p:=n mod 10;
n:=n div 10;
for i:=1 to k-1do begin
g:= n mod 10;
if g = p then
 h += 1;
n:=n div 10;
end;
writeln(h);
end.

3.
const
n=10;
var

a:array[1..n]of integer;
i,sum:integer;

begin
a[n]:=0;
for i:=1 to 9 do
readln(a[i]);

for i:=1 to n do 
 sum:=sum+a[i];
writeln(sum);
end.

4.
var

n:integer;

begin

readln(n);

while n<>0 do begin
n:=n div 10;
k += 1;
end;
if k = 4 then
writeln('число четырехзначное')
else
writeln('число не четырехзначное');
end.

5.
var

a:array[1..10]of integer;
i:byte;

begin

for i:=1 to 10 do
readln(a[i]);

for i:=1 to 10 do begin
 if a[i] = 2 then
writeln('да есть');
break;
end;
end.