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

программа на языке pascal, успехов в учебе.

program pr;

var n,m,z,k,i,vm: integer;

begin

readln (n,m,z);

vm: =n*60+m;

i: =1;

while i< =vm do

begin

k: =k+1;

i: =i+z;

end;

writeln (k);

readln;

end.

2^i = 64

i = 6 бит потребуется на 1 символ

256 * 128 * 6 = 196608 бит памяти потребуется чтобы сохранить текст

196608 бит: 8 = 24576 байт : 1024 = 24 килобайт

ответ. 24 килобайт