Задание 2. Используя приложение "Калькулятор" узнаете, сколько времени между датами 17 марта 1974 года по сегодняшний день. Промежуток времени укажите в днях, неделях, месяцах и годах. Задание 3. Используя приложение "Калькулятор", определите дату следующим образом: к сегодняшней дате прибавьте 7 лет 5 месяцев 3 недели и 25 дня.

программа на паскале:

program a1;

var i, j : integer;

      s : real;

      a: array [1..5, 1..6] of real;

      b: array [1..6] of real;

begin

  for i: =1 to 5 do

    for j: =1 to 6 do

        readln(a[i,j]);

  for j: =1 to 6 do

    begin

        s: =0;

        for : =1 to 5 do

            s: =s+a[i,j];

        b[j]: =s

    end;

  write ('полученный массив в: ');

  for j: =1 to d do

    write(b[j]);

  readln

end. 

игрок мог поставить крестик в любую клетку поля, их 64; по формуле  =n узнаем, какое кол-во информации получил второй игрок:

=64; i=6. ответ: 6 бит

на вход "черного ящика"подается число 125. о чем в этом случае говорит отказ: кажеться а

var

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

  i,min,z: integer;

begin

  min: =32000;

  z: =0;

  for i: =1 to 15 do

  begin

  readln(x[i]);

  if x[i]> 0 then if x[i]< min then min: =x[i];

  if x[i]=0 then inc(z);

  end;

  writeln(min);

  writeln(z);

end.