PascalABCNET Ввести строку из латинских букв. Ввести натуральное число. Зашифровать исходную строку, сдвигая буквы на введенное количество позиций.

Вопрос школьника по предмету Информатика

PascalABCNET
Ввести строку из латинских букв. Ввести натуральное число. Зашифровать исходную строку, сдвигая буквы на введенное количество позиций.

Ответ учителя по предмету Информатика

1.

var s1,s2:string;

i,n:integer;

begin

writeln(‘Введите строку:’);

readln(s1);

writeln(‘Введите число:’);

readln(n);

s2:=»;

for i:=1 to length(s1) do

 s2:=s2+chr(ord(s1[i])+n);

writeln(s2);

end.

Пример:

Введите строку:

program

Введите число:

5

uwtlwfr

2.

begin

  var s:=ReadlnString(‘Введите строку:’);

  var n:=ReadlnInteger(‘Введите число:’);

  s.Select(c->chr(ord(c)+n)).Println;

end.

Пример:

Введите строку: program

Введите число: 5

uwtlwfr