Зашифрованное слово: ТЛУГПЛЖГ
Изначальное слово: <неизвестно>
Условие зашифровки изначального слова: каждая буква изначального слова кодируется буквой, которая стоит на 3 позиции вперед по алфавиту (от начала алфавита к концу). В то же время зашифрованное слово, чтобы раскодировать в изначальное слово - нужно каждую букву зашифрованного слова заменить на букву, которая стоит на 3 позиции назад по алфавиту (от конца алфавита к началу).
Для расшифровки представлена картинка.
Рассмотрим простой пример прежде, чем решать эту задачу.
Изначальная буква: А
Значит зашифрованная буква (+3 позиции вперёд по алфавиту): Г
(А (+1) = Б (+1) = В (+1) = Г)
Сделаем наоборот.
Зашифрованная буква: З
Значит изначальная буква (-3 позиции назад по алфавиту): Е
(З (-1) = Ж (-1) = Ё (-1) = Е)
Вывод:
- чтобы зашифрованное слово превратить в изначальное - мы смещаемся на 3 позиции назад по алфавиту.
- чтобы закодировать изначальное слово в зашифрованное - мы смещаемся на 3 позиции вперёд по алфавиту.
Теперь расшифруем изначальное слово:
Зашифрованное слово: ТЛУГПЛЖГ
Т (-3 позиции): Т (-1) = С (-1) = Р (-1) = П
Л (-3 позиции): Л (-1) = К (-1) = Й (-1) = И
У (-3 позиции): У (-1) = Т (-1) = С (-1) = Р
Г (-3 позиции): Г (-1) = В (-1) = Б (-1) = А
П (-3 позиции): П (-1) = О (-1) = Н (-1) = М
Л (-3 позиции): Л (-1) = К (-1) = Й (-1) = И
Ж (-3 позиции): Ж (-1) = Ё (-1) = Е (-1) = Д
Г (-3 позиции): Г (-1) = В (-1) = Б (-1) = А
Изначальное слово: ПИРАМИДА
ответ: ПИРАМИДА
1)
program zadacha1;
uses crt;
var b,i,j:integer;
c,pr:real;
a:array [1..4,1..7] of integer;
begin
clrscr;
pr:=1;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
readln(a[i,j]);
end;
end;
for i:=1 to 4 do
begin
for j:=1 to 7 do
begin
if (a[i,j] mod 3) = 0 then pr:=pr*a[i,j];
end;
end;
pr:=pr/3;
writeln(pr:2:3);
readkey;
end.
2)
program zadacha2;
uses crt;
const k=8;
var b,i,j,sum:integer;
c,pr:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
pr:=1;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(36)+10;
end;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for j:=1 to k do
begin
if (a[k,j] mod 5) = 0 then pr:=pr*a[i,j];
end;
for i:=1 to k do
begin
for j:=1 to k do
begin
if (i=j) and (a[i,j] > 0) then sum:=sum+a[i,j];
end;
end;
writeln('Prozvedenie ',pr:2:2);
writeln('Summa ',sum);
writeln('Raznostb ',pr-sum:2:2);
readkey;
end.
3)
program zadacha3;
uses crt;
const k=9;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(55-12+1)+12;
end;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
if (a[i,k] mod 2) = 1 then
begin
l:=l+a[i,k];
b:=b+1;
end;
end;
sred:=l/b;
for i:=1 to k do
begin
if a[i,i]>25 then sum:=sum+a[i,i];
end;
writeln;
writeln('Srednee ',sred:2:2);
writeln('Summa ',sum:2:1);
readkey;
end.
4)
program zadacha4;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(91)-20;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Srednee ',sred:4:2);
readkey;
end.
5)
program zadacha5;
uses crt;
const k=5;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(31)-40;
end;
end;
j:=k;
for i:=1 to k do
begin
if (a[i,j] mod 2)<> 0 then
begin
l:=l+a[i,j];
b:=b+1;
end;
j:=j-1;
end;
sred:=l/b;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Srednee ',sred:4:2);
readkey;
end.
6)
program zadacha6;
uses crt;
const k=6;
var b,i,j:integer;
sred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
begin
a[i,j]:=random(21);
end;
end;
j:=k;
for i:=1 to k do
begin
if a[i,j]>5 then
begin
l:=l+a[i,j];
end;
j:=j-1;
end;
l:=l/2;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
writeln;
writeln('Sum ',l:2:2);
readkey;
end.
7)
program zadacha7;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
pred:=sum+l;
writeln('Sum ',pred/10:2:2);
readkey;
end.
8)
program zadacha8;
uses crt;
const k=5;
var b,i,j:integer;
pred,sum,l:real;
a:array [1..k,1..k] of integer;
begin
randomize;
clrscr;
for i:=1 to k do
begin
for j:=1 to k do
a[i,j]:=random(10);
end;
j:=k;
for i:=1 to k do
begin
l:=l+a[i,j];
j:=j-1;
end;
l:=l/k;
for i:=1 to k do
begin
for j:=1 to k do
write(a[i,j],' ');
writeln;
end;
for i:=1 to k do
begin
sum:=sum+a[i,i];
end;
sum:=sum/2;
writeln('Sum ',sum:2:2);
writeln('Sred',l:2:2);
readkey;
end.
begin
writeln('Введите число');
readln(a);
if a<10 then writeln('ответ: ',a)
else
if a<=99 then
begin
af:=a div 10;
al:=a mod 10;
if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
end
else
if a<=999 then
begin
af:=a div 100;
al:=a mod 10;
if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
end
else
if a<=9999 then
begin
af:=a div 1000;
al:=a mod 10;
if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
end
else
if a<=30000 then
begin
af:=a div 10000;
al:=a mod 10;
if af>al then writeln('ответ: ',al) else writeln('ответ: ',af)
end;
end.