Перо Чертежника находится в точке (x, y) Команда: сместиться на вектор (a, b) Получаем точку на координатной плоскости. Определи значения a и b. ответ: a=b=

a = 2,1

b = 1,4 (смотри направление)

Задача 1 1) 18 меняем на 2 => убралась 1 восьмерка. 2) 288 меняем на 3 => убралось ещё 2 восьмерки и всего 3. 3) 3888 меняем на 1 => убралось ещё 3 восьмерки и всего 6. Далее цикл повторяется убирая по 6 восьмёрок каждый раз. 80:6=13 и 2 в остатке, т.е. после 13-го цикла строка будет 188. Ещё раз заменим 18 на 2 и останется 28. На этом работа редактора закончится. Итог - строка 28 Задача 2 Здесь цикл из 4 операций: 3 раза меняем по 3 восьмерки на двойку и 1 раз меняем 3 двойки на восьмерку, т.е. всего убирается 9 восьмерок и добавляется 1 восьмерка. Таких циклов полностью будет 62:8=7 и 6 в остатке. Т.е. по окончании 7-го цикла останется строка из 6 восьмерок. Они заменяется на 2 двойки и работа редактора закончится. Итог - строка 22 Задача 3 Здесь цикл из 5 операций: Дважды 4444 меняем на 77 и один раз 777 на 4. Остаётся 74444 Ещё 1 раз 4444 на 77 и 1 раз 777 на 4. Итого убирается 10 четвёрок. Всего их 192, значит всего циклов 192:10=19 и остаётся 2 четверки, которые уже не меняются. Итог: строка 44.

Var 
  min,max,i: byte; 
  kontrol: boolean;
  rez: real;
  a: array[1..9] of byte;
begin
  min:=6; 
  max:=1; 
  rez:=0;
  kontrol:=true;
  for i:=1 to 9 do begin
    write ('введите ',i,'-ю оценку:  ');
    readln (a[i]);
    if (a[i]<1) or (a[i]>6) then kontrol:=false;
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
    rez:=rez+a[i] 
  end;
  rez:=(rez-min-max)/7;
  if kontrol=true
    then writeln ('Зачетная оценка: ',rez:6:3)
    else writeln ('Введены некорректные данные')
end.


Пример:
введите 1-ю оценку:  2
введите 2-ю оценку:  3
введите 3-ю оценку:  4
введите 4-ю оценку:  4
введите 5-ю оценку:  4
введите 6-ю оценку:  5
введите 7-ю оценку:  5
введите 8-ю оценку:  5
введите 9-ю оценку:  6
Зачетная оценка:  4.286