Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом, Сначала Бычисляется длина исходной цепочки символов, если она нечётна, то удаляется первый символ цепочки, а если чётна,
то в начало цепочки добавляется символ г. в полученной цепочке символов каждая буква заменяется буквой,
Следующей за ней в русском алфавите (A — на Б, Б — на Вит. д., ая — на А). Получившаяся таким обрі в цепочка
является результатом работы алгоритма.
Например, если исходной была цепочка РУКА, то результатом работы алгоритма будет цепочка ДcФЛБ, а если
исходной была цепочка сон, то результатом работы алгоритма будет цепочка по.
Дана цепочка символов Рог, Какая цепочка символов получится, если к данной цепочке применить описанный
алгоритм дважды (т. е. применить алгоритм к данной цепочке, а затем к результату вновь применить алгоритм)?
Русский алфавит: АБВГДЕЕЖЗИЙқлмноПРСТУФХЦчшщъЫьэюя.​

10 минут

Объяснение:

Обозначим за  V  — количество данных,  q  — сорость передачи,  t  — время передачи

Тогда  V1=V2=12V=12⋅50=25  Мбайт

Переведём  25  Мбайт в Кбиты:

V1=V2=25Мбайт =25Мбайт⋅8бит=200Мбит=200⋅210 Кбит =50⋅4⋅210 Кбит=50⋅22⋅210 Кбит=50⋅212 Кбит

Время передачи определяется как  t=t1+t2=V1q1+V2q2 , где  q1=1024=210  Кбит/с,  q2=10242=512=29  Кбит/с

Таким образом,  t=50⋅212210+50⋅21229=50⋅22+50⋅23=50⋅4+50⋅8=200+400=600  c

Переведём полученный результат в минуты ( 1  мин  =   60  с):

600с:60с=10  мин.

1) в 4 и 6 строках заменить кавычки на одинарные (те которые там где русская буква Э. PascalABC другие не понимает, другие паскали тоже могут ругаться.

2) строка 8 оператор FOR требует перечисляемый тип например integer, так что чтобы все заработало придется переменные x, m, n объявить как integer (var x, m, n : integer)

3) в десятой строке исправить название функции возведения в квадрат на sqr

4) функция sin() считает в радианах. Если данные у вас в градусах то их нужно перевести в радианы.

5) не понятно для чего используется цикл если будет выведено только последнее вычисленное значение. Возможно в цикле пропущен блок BEGIN END;

исправленная програма будет выглядеть примерно так:

Program one;

Var y : real;

   x, n, m : integer;

Begin

   Write('введите число m ');

   Readln(m);

   Write('введите число n ');

   Readln(n);

   For x := m to n do begin

       y := sin(degToRad(4*sqr(x)));

       Writeln(y);

   end;

End.

ну и плюс поправил отступы и стилистические ошибки не влияющие на результат...