графическая или изобразительная
звуковая (акустическая)
текстовая
числовая
видеоинформация
Обьяснение:
Основные виды информации по её форме представления её кодирования и хранения, что имеет наибольшее значение для информатики, это:
графическая или изобразительная — первый вид, для которого был реализован хранения информации об окружающем мире в виде наскальных рисунков, а позднее в виде картин, фотографий, схем, чертежей на бумаге, холсте, мраморе и др. материалах, изображающих картины реального мира;
звуковая (акустическая) — мир вокруг нас полон звуков и задача их хранения и тиражирования была решена с изобретением звукозаписывающих устройств в 1877 г. (см., например, историю звукозаписи на сайте — её разновидностью является музыкальная информация — для этого вида был изобретен кодирования с использованием специальных символов, что делает возможным хранение её аналогично графической информации;
текстовая кодирования речи человека специальными символами — буквами, причем разные народы имеют разные языки и используют различные наборы букв для отображения речи; особенно большое значение этот приобрел после изобретения бумаги и книгопечатания;
числовая — количественная мера объектов и их свойств в окружающем мире; особенно большое значение приобрела с развитием торговли, экономики и денежного обмена; аналогично текстовой информации для её отображения используется метод кодирования специальными символами — цифрами, причем системы кодирования (счисления) могут быть разными;
видеоинформация сохранения «живых» картин окружающего мира, появившийся с изобретением кино.
1)
Program Pr1;
uses crt;
var x,i,n:integer;
begin
clrscr;
readln(n);
x:=1;
for i:=1 to n do x:=x*i;
writeln(x);
end.
2)
Program Pr1;
uses crt;
var x,y:real;
Begin
clrscr;
readln(x,y);
writeln(Exp(y*ln(x)));
end.
3)
Program Pr1;
uses crt;
var mas:array[byte] of integer;
i,n,c,b:integer;
Begin
clrscr;
writeln('Vvedite kol chisel');
readln(n);
c:=0;b:=1;
for i:=1 to n do begin
writeln('vvedite ',i,' chislo ');
readln(mas[i]);
end;
For i:=1 to n do if mas[i]<0 then c:=c+1
else b:=b*mas[i];
writeln('Chislo otrizateln. ',c,' Proizvedenie polojiteln ',b);
end.
4)
Program Pr1;
uses crt;
var x,y,i:integer;
Begin
clrscr;
readln(x);
y:=0;
for i:=100 to 999 do if i>x then begin
writeln(i);
y:=y+1;
end;
writeln('Vsego ',y);
end.