На вход программе подается строка (длиной не более 200 символов), в которой нужно зашифровать все английские слова (словом называется непрерывная последовательность английских букв, слова друга от друга отделяются любыми другими символами, длина слова не превышает 20 символов). Строка заканчивается символом #, других символов # в строке нет. Каждое слово зашифровано с циклического сдвига на длину этого слова. Например, если длина слова равна K, каждая буква в слове заменяется на букву, стоящую в английском алфавите на K букв дальше (алфавит считается циклическим, то есть, за буквой Z стоит буква A). Строчные буквы при этом остаются строчными, а прописные – прописными. Символы, не являющиеся английскими буквами, не изменяются. Требуется написать программу, которая будет выводить на экран текст зашифрованного сообщения. Например, если исходный текст был таким: Day, mice. "Year" isamistake# то результат шифровки должен быть следующий: Gdb, qmgi. "Ciev" ku b tpzahrl# (Написать прогу на ПАСКАЛЕ, заранее

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

naastul2

06.03.2021 20:37

Запиши доменное имя компьютера, зарегистрированного в домене первого уровня бизнес, в домене второго уровня russia и имеющего собственное имя www....

эля6910

29.03.2020 12:16

2) Считая, что каждый символ кодируется 16-ю битами, оцените информационныйобъем следующего высказывания А. П. Чехова в кодировке Unicode:Берегите в себе человека.1) 25 байт...

Polymesiz

30.03.2023 19:44

Алгоритм вычисления значения функции F(n), где n – натуральное число, задан следующими соотношениями: F(1) = 2 F(n) = F(n–1) * (n-1), при n 1. Чему равно значение функции...

devoshka2006

22.05.2021 18:10

Укажите ложные высказывания.1)Русские буквы в кодовых таблицах КОИ-8 и Windows расположены в лексикографическом порядке.2)Латинские буквы в кодовых таблицах КОИ-8 и Windows...

Svetik15102011

22.02.2023 23:39

Var a,b : integer; begina: =10; for b: =0 to 5 do a: =4*a+2*b; writeln(a); end....

Ккамв

30.09.2022 18:36

1) в чем проявляется системный подход при изучении компьютера? 2) в чем проявляется системный эффект при изучении компьютера?...

Abl15

16.06.2022 04:06

Доклад роль информационной деятельности в современном обществе в его образовательной сфере...

Сергейрг

08.04.2020 00:47

243 в шестяричной системе исчесления перевести в десятичную...

losangelina23

21.05.2023 01:01

А) почему при работе за компьютером необходимо соблюдать правила техники безопасности? б) какие требования правил техники безопасности являются, по вашему мнению основными?...

masha2450

01.01.2023 06:45

Вклассе 1100102 % девочек и 10102 мальчиков. сколько учеников в классе?...

Ответ:

Okama

18.11.2021 07:06

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(100,-20,20); a.Println;
WritelnFormat('Положительных {0}, отрицательных {1}',
a.Where(x->x>0).Count,a.Where(x->x<0).Count)
end.

Тестовое решение:
-19 12 19 -17 -5 10 -13 -2 -4 16 -6 -12 -3 5 -3 -6 -1 8 -19 -14 -1 9 -10 20 -7 20 5 17 -7 11 -5 -14 -19 -18 16 13 11 -2 -3 9 1 11 10 -13 8 -14 -15 -13 8 5 -7 20 -20 18 2 -8 2 19 10 -5 -15 -10 -16 5 1 -12 -14 -6 9 5 3 -20 -9 -7 6 9 20 -18 -8 -13 14 -3 -11 9 -3 -5 -15 -16 0 4 -10 12 8 -19 4 -10 6 -15 7 0
Положительных 44, отрицательных 54

0,0(0 оценок)

Ответ:

hudo1

14.02.2020 22:06

Uses GraphABC;
procedure Draw(x, y, l, u : Real; t : Integer);

procedure Draw2(Var x, y: Real; l, u : Real; t : Integer);
begin
Draw(x, y, l, u, t);
x := x + l*cos(u);
y := y - l*sin(u);end;
begin
if t > 0 then
beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1);
Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end
else
Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end;
begin
SetWindowSize(425,500);
SetWindowCaption('Фракталы: Снежинка Коха');
Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4);
Draw(210, 8, 400, -pi/3, 4);end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку