Носитель информации это любой материальный объект или среда,способный достаточно длинное время сохранять в своей структуре занесенную в него информацию.
Компьютерная программа это последовательность инструкций предназначенная для исполнения устройством управления вычислительной машины.
1) В ASCII каждый символ кодируется одним байтом, поэтому количество байт равно количеству символов. Тогда строка займет 45 байт, страница = 25х45 байт, весь текст - 300х25х45 байт. Выражаем эту величину в килобайтах: 300х25х45/1024 = 329.6 КБайт. Если использовать двухбайтную кодировку UNICODE, объем файла удвоится и составит 659.2 Кбайта.
2) Фотография содержит 3072х2048 пикселей, каждый пиксель кодируется 6 байтами, 1 Кбайт равен 1024 байтам, тогда графический файл будет иметь размер 3072х2048х6/1024=36864 (Кбайт)
3) Скорость передачи данных по сети составляет 48/(2.5х60)=0.32 МБайт/с.
Время передачи упакованного файла равно 80-30=50 (с).
За это время по сети будет передан файл размером 50х0.32=16 (Мбайт)
Var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=' ' then delete(s,i,1);
write (s);
<span>end.
</span>var a, b, c, i:integer;
s, k:string;
begin
read (s);
k:='kk';
for i:=1 to length(s) do if s[i]=' ' then insert(k,s,i+1);
write (s);
<span>end.
</span>
var a, b, c, i:integer;
s:string;
begin
read (s);
for i:=1 to length(s) do if s[i]=',' then a:=i;
write (a);
end.
Благодарность не помешает.
//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Vara:integer;beginwriteln('введите a');readln(a);If (a>0) thena:=a+1;writeln(a);end.Если ты это имел ввиду