2) для удобства использования компьютера
3) стрелка
4) от настроек или действия выполняющееся мышкой
5) лазером
В двух словах - поиск таких элементов А которые не встречаются в векторе С
как делается
пробегаем по вектору А
при каждом новом элементе обнуляем флаг К
продегаем по вектору С
сравниваем текущий элемент А с текущим элементом С
если равны, то меняем флаг К на 1
когда текущий элемент А сравнили со всеми элементами С и флаг К остался нулем, то значит не нашли равных и выводим значение текущего элемента А на экран
и тд
1)
var k,a,i,n : integer;
t : Text;
begin
readln (k);
n := 0;
Assign (t,'test.txt');
Reset(t);
i := 1;
while not Eof(t) do
begin
read (t,a);
if a = k then
n := i;
i := i +1;
end;
Close (t);
writeln (n);
<span> end.
2)
var
t,t1,t2 : Text;
i : integer;
a : real;
begin
Assign (t,'text.txt');
Reset (t);
Assign (t1,'r1.txt');
rewrite (t1);
Assign (t2,'r2.txt');
rewrite (t2);
i := 1;
while not Eof(t)
do
begin
read (t,a);
if i mod 2 = 1 then
write (t1,a:3:3,' ')
else
write (t2,a:3:3,' ');
i:= i +1;
end;
Close (t);
Close (t1);
Close (t2);
<span> end.</span>
</span>
begin
var
a:=ArrRandom(20,1,20).Print;writeln();
writeln(a.Aggregate(BigInteger(1),(i,j)->(i*j)));
end.
1) линуксы - пох,
шиндошс - только читабельные символы кроме :,* и ещё вагон включая целые названия типа con, prn
2) линуксы - расширения чтобы пользователю было понятно что за файл, то есть самой системе расширение не важно. здесь не совсем уместно понятие неполного имени файла
<span>винда - по расширению определяется тип файла, то есть чтобы запустить приложение можно напейсать имя файла приложения без расширения.</span>