1) Мультимедийные технологии применяются в образовании, культуре и искусстве, науке, бизнесе и других областях человеческой деятельности.
2) К особенностям мультимедийных продуктов можно отнести следующие:
объединять в себе все виды информации (текстовой, аудио-, видеоинформации, анимации);удобный интерфейс (понятный, доступный, логичный и простой);возможность работать в разных режимах времени (реальное время, замедленный темп, ускоренный темп);быстрый поиск информации;большие возможности навигации;наличие диалогового окна для работы.
3) К примеру, видеоигра — мультимедиа технология. В ней одновременно обеспечивается работа звука (голоса персонажей), анимации (объемная анимация персонажей), статистических изображений (меню игры), видеороликов и текстами в диалоговом режиме (диалоговое окно).
Объяснение:
1)
Program Pr1;
uses crt;
var stroka:string;
i,k:integer;
Begin
clrscr;
writeln('Vvedite chislo');
readln(stroka);
k:=0;
for i:=length(stroka) downto 1 do if stroka[i]='3' then k:=i;
writeln(k);
end.
2)
Program Pr2;
uses crt;
var stroka:string;
i,k,x,y:integer;
Begin
clrscr;
readln(stroka);
y:=0;
for i:=length(stroka) downto (length(stroka)-1) do begin
val(stroka[i],k,x);
y:=y+k;
end;
writeln(y);
end.
3)
Program Pr2;
uses crt;
var stroka:string;
i,y,k:integer;
mas:array[byte] of integer;
Begin
clrscr;
readln(stroka);
for i:=1 to length(stroka) do begin
val(stroka[i],y,k);
mas[i]:=y;
end;
k:=0;
for i:=1 to length(stroka) do if mas[i]>k then k:=mas[i];
writeln(k);
end.
4)
Program Pr2;
uses crt;
var stroka,tmp:string;
Begin
clrscr;
readln(stroka); {1-oe predlojenie}
readln(tmp); {2-oe predlojenie}
delete(stroka,1,length(tmp));
stroka:=tmp+stroka;
writeln(stroka);
end.
5)
Program Pr2;
uses crt;
var mas:array[byte] of integer;
i,n,f:integer;
Begin
clrscr;
readln(n);
mas[1]:=1;
mas[2]:=1;
for i:=3 to n do mas[i]:=mas[i-1]+mas[i-2];
writeln(mas[n],' a'); {a}
readln;
for i:=1 to n do write(mas[i],' '); {á}
f:=0; {â}
readln;
for i:=1 to n do f:=f+mas[i];
if f mod 2=0 then writeln('TRUE')
else writeln('FALSE');
end.
Program MAXOF3;
Var a,b,c,t,max: Real;
Begin
Writeln('Type 3 different numbers');
Write('a = '); Read(a);
Write('b = '); Read(b);
Write('c = '); Read(c);
t := (a+b)/2 + abs(a-b)/2; {abs(x) - модуль числа х}
max := (t+c)/2 + abs(t-c)/2;
Writeln('max = ', max:2); {:2 - количество знаков после запятой}
End.