Соберите информацию из интернета о стандартах кодирования ascii и unicode. выясните значения каждого из сокращений. узнайте unicode-коды букв «э» и «э». определите, сколько места в памяти в кодировках ascii и unicode занимает сообщение «верблюда спросили: «что тебе нравится больше – подъем или спуск? » он сказал: «есть еще и третья мерзость – грязь».

var

  x, y, p, year: integer;

  summ: real;

begin

  readln(x);

  readln(p);

  readln(y);

  summ : = x;

  year : = 0;

  while summ < y do

  begin

      summ : = (trunc(summ * (1 + p / 100) * 100)) / 100;

      year : = year + 1;

  end;

  writeln(year);

end.

 

 

// другой вариант

var  x, y, p, year, summ: integer; begin  readln(x);   readln(p);   readln(y);   summ : = x * 100;   year : = 0;   while summ < y * 100 do  begin      summ : = trunc(summ * (1 + p / 100));       year : = year + 1;   end;   writeln(year); end.

const

  n = 15;

var

  a: array[1..15] of real;

  temp: real;

  i: integer;

begin

  randomize;

  writeln('исходный массив: ');

  for i : = 1 to n do

  begin

      a[i] : = (random(101) - 50) / 10;

      write(a[i], ' ');

  end;

  writeln;

  temp : = a[5];

  a[5] : = a[10];

  a[10] : = temp;

  writeln('преобразованный массив: ');

  for i : = 1 to n do

      write(a[i], ' ');

  writeln;

end.