№ 1. Приведите по 3 примера дискретной и непрерывной информации
№ 2. Распределите информацию по её виду (по форме представления и
по восприятия):
схематический чертёж к задаче, письмо маме; экспонат в музее; видеофильм;
мультфильм; аромат цветов; вкус шоколада; температура на улице;
оранжевый цвет
№ 3. Дайте определение некоторым свойствам информации
Объективность информации – это
Актуальность информации – это
Полезность информации – это…
Какие свойства ещё существуют? Назовите их.
№4. Приведите по 2 примера:
- актуальной информации
- неактуальной информации
- достоверной информации
- недостоверной информации
- полной информации
- неполной информации
- полезной информации
- понятной информации
№ 5. Найдите и запишите обобщающее слово для следующих слов:
- Текстовый, графический, системный
- Научная, ложная, актуальная, истинная, массовая
- рыболовная, глобальная, торговая
- пенсионное, программное, аппаратное
- короткая, длительная, внешняя, генетическая, оперативная

1. Примерно вот так почему-то учат писать в школе...

program Schoolar;

var
  i,j,n:integer;

begin
  Write('n = '); Readln(n);
  for i:=1 to n do begin
    for j:=1 to 50 do
      if j mod 2 = 0 then Write(j,' ');
    Writeln
    end
end.

Пример
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50

2. Примерно вот так рекомендуют делать эту задачу современные концепции программирования...

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Loop ReadInteger('n =') do Range(2,50,2).Println
end.

Результат
n = 3
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50
2 4 6 8 10 12 14 16 18 20 22 24 26 28 30 32 34 36 38 40 42 44 46 48 50

Const n=10;
var i,j,k,mx,ind: integer;
    a: array[1..n] of integer;
begin
  writeln('исходный массив:');
  randomize;
  mx:=0;
  for i:=1 to n do
  begin
    a[i]:=random(2*n)-n;
    write(a[i],' ');
    if a[i]>mx then
    begin
      mx:=a[i];
      ind:=i;
    end;  
  end;
  writeln;
  for i:=ind+1 to n-1 do
  for j:=i+1 to n do
    if a[i]>a[j] then
    begin
       k:=a[i];
       a[i]:=a[j];   
       a[j]:=k;
    end;
  writeln('новый массив:');  
  for i:=1 to n do write(a[i],' ');
end.

исходный массив:
3 7 7 5 5 -2 -8 -9 -8 6 
новый массив:
3 7 -9 -8 -8 -2 5 5 6 7