Оптическое распознавание текста позволяет осуществлять поиск слова.
Ответ: осуществлять поиск слова. <span />
Program _1;
Var
x,fx:integer;
begin
writeln('Введите значение X');
readln(x);
if (x>0) then
begin
fx:=x;
end;
if (x=0) then
beginfx:=0;
end;
if (x<0) then
begin
fx:=-sqr(x);
end;
writeln('F(x): ',fx);
end.
Варианты могут быть разные
1) берем черного кота
2) связываем лапы
3) мажем всю шкуру осветлителем
4) ждем положенное время, слушая непрерывное мявканье
5) смываем осветлитель с кота
6) размешиваем хну с кипятком
7) мажем всю шкуру кота
8) ждем положенное время, слушая непрерывное мявканье
9) смываем хну с кота
10) развязываем лапы
должен получиться рыжый кот
но лучше так не делать) гринпис не одобрит
задание 1 и 2 прикрепила
3) 512000 * (7*60) = 215040000 бит за 7 мин
215040000/8 = 26880000 байт /1024= 26250 Кбайт / 1024 = 25,63
Мбайт
4) я не помню, но если один символ = 1 бит, то:
40*65*7= 18200 бит /8
= 2275 байт
5) не указана нормально скорость 128 Кбит в секунду? Допущу что
да, тогда:
128 000 /8 = 16000 байт в секунду
3 600 000 / 16000 = 225 секунд
6) б
7) name_may_1
<span>8) D:\ SCHOOl \ INFO
задание 9 тоже прикрепила</span>
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.