В кодировке Unicode каждый символ кодируется 2 байтами. Мира написала текст (в нём нет лишних пробелов): «Киви, манго, яблоко, виноград, апельсин, мандарин - фрукты». Ученица вычеркнула из списка название одного из фруктов. Заодно она вычеркнула ставшие лишними запятые и пробелы — два пробела не должны идти подряд. При этом размер нового предложения в данной кодировке оказался на 14 байт меньше, чем размер исходного предложения. Напишите в ответе вычеркнутое название фрукта

Я вариант попроще предложу...

var
  a,b,h,x:real;
begin
  writeln('Введите интервал (a,b) и шаг табуляции h: ');
  readln(a,b,h);
  x:=a;
  {+0.000001 скомпенсирует накопление погрешности х}
  while x<=b+0.000001 do
    begin
    writeln(x:7:3,' ',3*cos(x/2)+4:10:7);
    x:=x+h
    end
end.

Тестовое решение:

Введите интервал (a,b) и шаг табуляции h:
2 4 0.2
  2.000  5.6209069
  2.200  5.3607884
  2.400  5.0870733
  2.600  4.8024965
  2.800  4.5099014
  3.000  4.2122116
  3.200  3.9124014
  3.400  3.6134665
  3.600  3.3183937
  3.800  3.0301313
  4.000  2.7515595

Как то раз Я (Будильник) разбудил своего хозяина в не то время. Хозяин как ни в чём не бывало пошёл на роботу, даже не посмотрев на часы. Так я понял что я могу управлять человеком, и сразу же после этого я стал использовать своего хозяина и всякими образами издеваться над ним. Вскоре мой хозяин стал что то подозревать, но я был хитрее, я стал переводить стрелки своих часов и человек опять верил мне, после полного досмотра и нашёл в мне неисправность его решение было очень жестким - он выкинул меня на улицу.