Var
i, sum, beg:integer;
str:string;
begin
sum:=0;
beg:=1;
readln(str);
for i:=1 to Length(str) do
if str[i]='+' then
begin
sum:=sum+StrToInt(Copy(str, beg, i-beg));
beg:=i+1;
end;
sum:=sum+StrToInt(Copy(str, beg, Length(str)));
writeln(sum);
end.
Например так:
#!/usr/bin/perl
for(1..12){@arr[$_]=int(rand(100))};
print "@arr\n";
print "Write first element:"; chomp($n1=<>);
print "Write second element:"; chomp($n2=<>);
(@arr[$n1], @arr[$n2])=(@arr[$n2], @arr[$n1]);
print "\
[email protected]\n"
Только по хорошему нужна проверка введенных значений еще.
Матрица - это двумерный массив, т.е. другими словами таблица. Ели матрица двоичная, то ее элементы - это 0 и 1.
В качестве примера:
1 0 1 1
0 1 1 1
1 0 1 1
1 1 1 1
Примеры использования:
Ну, скажем - любой японский кроссворд, любое черно белое (двухцветное изображение), таблица наличия или отсутствия (где ставится - "+" ("Да", "Есть" и т.п.) (1) - есть в наличии, "-" ("Нет" и т.п.)(0) - нет в наличии) и т.д.
1 символ = 1 бит ,1 байт =8 битам, 1 килобайт =1024 байтам
2048=16777216
Если символ кодируется одним байтом, то количество символов = 128/1 = 128.
Если символ кодируется двумя байтами, то количество символов = 128/2 = 64.