<span>Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN (COPY (А, 2, 3) + COPY (A, 12, 3) ); ?
ЛЕКЦИЯ
Определите результат выполнения:
С: = ' ЛЕФОРТОВО' ;
F: = LENGTH (С) + LENGTH (С); ?
Переменной F присвоит значение 20
Из слова ИНФОРМАТИКА получено слово ФОРМАТ. Вставьте пропущенные значения
COPY('ИНФОРМАТИКА', ,).
</span>COPY('ИНФОРМАТИКА',3 ,6)<span>
Что будет выведено в результате выполнения:
WRITELN ('24 + 24 =', 24 + 24)?
24 + 24 =48
Что будет выведено в результате выполнения:
А: = 'ЭЛЕКТРОСТАНЦИЯ';
WRITELN(COPY(A,1,7));
ЭЛЕКТРО
</span>
<span>Единицы измерения количества информации. Bit (бит), Byte (байт), Mb (Мб=Мегабайт), Gb (Гб=Гигабайт).
</span>Количество информации <span> - это мера уменьшения неопределенности </span>
Const n=4; m=5;
type ar=array[1..n,1..m] of integer;
procedure p1(var a:ar);
var i,j:integer;
begin
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(20)-10;
write(a[i,j]:4);
end;
writeln;
end;
end;
var a:ar; i,j,max,im,jm:integer;
begin
Randomize;
p1(a);
max:=a[1,1]; im:=1; jm:=1;
for i:=1 to n do
for j:=1 to m do
if a[i,j]>max then
begin max:=a[i,j]; im:=i; jm:=j; end;
writeln('max = a[',im,',',jm,'] = ',max);
<span>end.
Пример:
2 -1 -7 0 7
3 7 -7 -7 3
-7 -5 -3 -2 5
9 -4 -4 -7 -7
<span>max = a[4,1] = 9</span></span>
Что в корзине осталось лежать 8черных и 7 белых шаров
