На шоссе расположены пункты и , удалённые друг от друга на 20 км. Мотоциклист выехал из пункта в направлении, противоположном , со скоростью 56 км/ч.
Составь математическую модель, описывающую положение мотоциклиста относительно пункта через часов.

ответ: =⋅+,≥.
ответить!

здесь идёт чередование чётных чисел с нечётными

, я сегодня добрый : ) первая .

var  s, mn: set of integer;   f: boolean;   k, n, c, i, j, kol: integer; begin  writeln('введите трехзначное число: ');   repeat readln(n) until n in [100..999]; // защита от "дурака"  k : = n;       // записываем число, чтобы вывести на результат    while n < > 0 do   begin                    // пока число не станет равно       c : = n mod 10;     // последняя цифра числа      include(s, c);     // вносим эту цифру в множество      n : = n div 10      // у числа отсекаем рассмотренную цифру  end;     for i : = 100 to 999 do   begin      // рассматриваем все трехзначные числа      mn : = s; j : = i; f : = true;   // все обнуляем      while j < > 0 do       begin      // пока рассматриваемое число не будет равно нулю          c : = j mod 10;       // последняя цифра числа          if c in mn then exclude(mn, c) else f : = false;       // если число во множестве, то убираем его оттуда, чтобы избежать повторений, иначе - не рассматриваем его.          j : = j div 10;       // у числа отсекаем рассмотренную цифру      end;       if f then begin inc(kol); write(i: 6) end      // если проверка прошла успешно, то выводим число на экран и прибавляем значение переменной-счетчика!   end;       writeln; writeln('из ', k, ' можно составить ', kol, ' чисел! ');     // выводим результат  readln; end.

==========================================================

а вот вторая, комменты к ней писать было уже лень:

var  k, i, n, kol: integer; begin  writeln('количество трехзначных чисел, которые вы далее введете? ');   repeat readln(k) until k in [1..10];   for i : = 1 to k do   begin      writeln('введите ', i, ' трехзначное число: ');       repeat readln(n) until n in [100..999];       while n < > 0 do       begin          if ((n mod 10) mod 2 = 0) then inc(kol);           n : = n div 10;       end;   end;   writeln('количество четных чисел = ',kol);   readln   end.

1)212= 1+1=2*2=4+1=5 (3 действия)

2)2211121=1+1=2+1=3*2=6*2=12*2=24+1=25*2=50  (7 действий)

3)221111212=1+1=2+1=3*2=6*2=12*2=24*2=48+1=49*2=98+1=99  (9 действий)

var a: array [byte,byte] of real; i,j,n,m: byte; s: real; d,p: word;

beginwrite('введите количество строк n = '); readln(n); write('введите количество строк m = '); readln(m); for i: =1 to n do for j: =1 to m do readln(a[i,j]);

s: =0; d: =0; p: =0; for i: =1 to m do beginfor j: =1 to n do s: =s+a[j,i]; for j: =1 to n doif a[j,i]< (s/n) then inc(d); writeln('количество элементов в столбце ',i,' прямоугольной вещественной матрицы, меньших среднего арифметического d = ',d,' среднее арифметическое = ',(s/n): 0: 4); p: =p+d; d: =0; s: =0; end; writeln('общее количество элементов меньших элементов в столбцах = ',p); writeln('матрица'); for i: =1 to n do beginfor j: =1 to m do write(a[i,j],' '); writeln; end; end.