<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(6,i->(i+10)**3).Println
end.
<u>Результат</u>
1000 1331 1728 2197 2744 3375
Var a:array[1..10] of integer;
i,x:integer;
begin
write('Исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i],' ');
end;
WRITELN;
write('Что ищем?: ');
readln (x);
for i:=1 to 10 do if x=a[i] then write('A[',i,'] ');
end.
4) С:\учёба\математика\2013\Расписание
Алгоритм работает, если верхние края стен расположены на одном уровне:
использовать Робот
алг
нач
нц пока справа стена
закрасить
вверх
кц
нц пока справа свободно
вправо
кц
вниз
нц пока слева свободно
влево
кц
нц пока слева стена
закрасить
вниз
кц
кон
<span><em>1. Информационным</em> называют <em>процесс</em>, связанный с определёнными операциями (действиями) над информацией, в ходе которых может измениться содержание информации или её форма. Это процессы сбора, обработки, хранения, накопления, передачи/получения информации.
<em>2. </em><em>Неинформационные процессы: а), г), е), к), л), н)
</em> <em>Получение информации: б), д)
</em> <em>Передача информации: з)
</em> <em>Хранение информации: м), и)
</em> <em>Обработка информации: </em><em>в), ж)</em>
</span>