Определите, которые символы будут вставлены в текстового документа в программе Блокнот Путем введения их кода по натиснутои клавиши альт для кодов 1234, 3754,8986,9708,9415,10001, 10239.
Var a,k,m,min,i,flag:integer; begin readln(a); m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе} while m >0 do begin m:=m div 10; k:=k+1; end; min:=9; {записываю самое большое нечетное число} {в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных} for i:=1 to k do begin if (a mod 10<=min)and(a mod 2<>0) then begin min:=a mod 10; flag:=1; end; a:=a div 10; end; if flag=0 then writeln('нет нечетных') else writeln(min); end.
Ну код Цезаря(классический) это сдвиг на 3 буквы по клавиатуре. Тогда будет: информатика - лрчсупгхлнг компьютер - нсптябхзу
Для кода Виженера же нужно помимо слова еще и ключ. Пишется слово, например attention вводится ключ lemon дальше ключ без пробелов становится по размеру слова, которое мы загадываем дальше по таблице составляется слово ну более-менее пытался объяснить что из себя это представляет ну раз ключ не дан, тогда вариант а: вводимое слово "человек", ключ "алгоритм" тогда человек - чроэтнэ вариант б: вводимое слово "алгоритм", ключ "человек" тогда алгоритм - чроэтнэд
a,k,m,min,i,flag:integer;
begin
readln(a);
m:=a; {сохраняю введенное значение и считаю кол-во цифр в числе}
while m >0 do
begin
m:=m div 10;
k:=k+1;
end;
min:=9; {записываю самое большое нечетное число}
{в цикле отсекаю последнюю цифру в числе и проверяю ее на нечетность. Если она нечетная и меньше числа min, то сохраняю ее в min и присваиваю переменной Flag 1. Если к концу программы в переменной flag будет 1, значит хотя бы одна нечетная цифра в числе была, если flag=0 тогда в числе нет нечетных}
for i:=1 to k do
begin
if (a mod 10<=min)and(a mod 2<>0) then
begin
min:=a mod 10;
flag:=1;
end;
a:=a div 10;
end;
if flag=0 then
writeln('нет нечетных')
else
writeln(min);
end.
Тогда будет:
информатика - лрчсупгхлнг
компьютер - нсптябхзу
Для кода Виженера же нужно помимо слова еще и ключ.
Пишется слово, например
attention
вводится ключ lemon
дальше ключ без пробелов становится по размеру слова, которое мы загадываем
дальше по таблице составляется слово
ну более-менее пытался объяснить что из себя это представляет
ну раз ключ не дан, тогда
вариант а:
вводимое слово "человек", ключ "алгоритм"
тогда человек - чроэтнэ
вариант б:
вводимое слово "алгоритм", ключ "человек"
тогда алгоритм - чроэтнэд
если код, то он в интернете есть.