Декодируй предложенное слово, используя перестановки, и зашифруй полученное слово с шифра Цезаря с ключом 3.

решение на языке pascal

program pr;

var n,a,b,c, sum: integer;

begin

readln (n);

a: =n div 100;

b: =n mod 100 div 10

c: =n mod 10

sum: =a+b+c;

if   sum mod 2 = 0 then writeln ('сумма цифр четная') else writeln('сумма цифр четная');

readln;

end.

друг сказал) если не правильно извини, но он вродь хорош в информе

чтение из файла обычно пишется readln(f,s) где f имя файловой переменной так что скорей всего нужно вставить

readln(input,s); s: =s+' '; f: =0; for i: = 1 to length(s) do beginif s[i]< > ' ' then r: =r+s[i]; if s[i]=' ' then begin k: =k+1; d[k]: =r; r: =''; end; end; readln(input,n); for i: = 1 to n do beginreadln(input,sait[i]); readln(input,tegs[i]); readln(input,pop[i]);

соответственно и запись в файл write(f,s)

a*b*i=i

n=2^i

где a*b-размер изображения, n-количество цветов,i-количество памяти на один пиксел, i-вес рисунка(бит)

1)64*64*i=512*8

i=1

n=2

ответ: 2

2)256=2^i

i=8

a*b*8=2400*8

a*b=2400

ответ: 2400

3)n1=4=2^2

i1=64*128*2=2^14бит=2кбайт

n2=16=2^4

i1=32*32*4=2^12бит=0,5кбайт

ответ: на первое изображение потребуется в 4 раза больше места