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)+; end. пример: введите строку: program введите число: 5 uwtlwfr

на паскале:

 

program myprogram; var n,i,fact: integer; sum: real; beginsum: =0; fact: =1; writeln('введите число n.'); readln(n); for i: =1 to n dobeginfact: =fact*i; sum: =sum+1/fact; end; writeln('сумма 1/1! +1/2! +1/3! ++1/n = ',sum); end.

2 единицы в двоичной записи числа 1025

10000000001