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
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