Задание 1.
Заполнить ячейки A1:A100 первой строки нового листа
1. символом “*” так, чтобы в первой строке не было пустого места;
2. дробными числами, начиная с 0.1 с шагом 0, 05;
3. группой чисел (-5; 8; 34), повторив ее нужное количество раз;
4. Числами ½; ¼; 1/8; …
Задание 2.
Заполнить ячейки диапазона A1:A100 произвольными числами. Не прибегая к формул (используя Меню Правка/Специальная вставка), заполнить ячейки диапазона B1:B100
1. удвоенными значениями массива А;
2. уменьшенными в 10 раз значениями массива А;
3. Значениями равными 1/Ai + Ai;
4. Значениями равными A 2 +2*A +5.
Выполните в excel

program xxx;

var a,s : string;

    i: integer;

begin

    writeln ('введите слово и символ-');

    readln (s,a);

    for i: =1 to length(a) do

        if copy (s,i,1)=a then writeln (i);

    readln

end.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

var s: string;

begin s : = 'видеоадаптер'; writeln(s); writeln(s[3] + s[2]+ s[5] + s[3]); writeln(s[12] + s[6] + s[3] + s[2] + s[5]); writeln(s[9] + s[6] + s[12] + s[10] + s[11] + s[12]); end.