// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 begin var a:=MatrixRandom(7,7,0,9); var k:=0; for var i:=0 to 6 do begin for var j:=0 to 6 do begin Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
const n=7; var a:array[1..n,1..n] of integer; i,j,k:integer; begin Randomize; k:=0; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=Random(10); Write(a[i,j]:3); if a[i,j] in [1..5] then Inc(k) end; Writeln end; Writeln('Кол-во элементов на [1,5]: ',k) end.
1. Используя шифр Цезаря, декодировать следующие фразы: a. ЛМБТТОЬК ШБТ КЛАССНЫЙ ЧАС (сдвиг -1) b. ВЁМПЁ ТПМОЧЁ РФТУЬОЙ БЕЛОЕ СОЛНЦЕ ПУСТЫНИ (сдвиг -1) c. РЦЙРГ ТСПСЪЮ НУЖНА сдвиг -3, или описка или ошибка или так и задумывалось)
2. При использовании шифра перестановки кодирование осуществляется перестановкой букв по одному и тому же правилу. Восстановите слова и определите правила перестановки: обмен букв 1 и 3, 4 и 6, 7 и 8 если есть a. НИМАРЕЛ Минерал b. ЛЕТОФЕН Телефон c. НИЛКЙЕА Линейка d. НОМОТИР Монитор e. РАКДНАША Карандаш
3. Используя шифр перестановки из предыдущего задания, закодируйте слова: ГОРИЗОНТ, ТЕЛЕВИЗОР, МАГНИТОФОН Ригозитн Летиверзо Гамтинфоон
Дополнительная задача ( ) Даны фразы на языке ниуэ (древний полинезийский язык) и их переводы на русский язык: 1. Kua kitia e koe a Pule. - Ты видишь Пуле. 2. Tо lеlе е mаnu. - Птица полетит. 3. Kua kоukоu a kоe. - Ты купаешься. 4. Kua fanо a ia. - Он идет. 5. Ne kitia he tama a Siоne. - Мальчик видел Джона. 6. Kua fano e tama. - Мальчик идет. 7. To kitia e Sione a ia. - Джон увидит его. 8. Ne liti e ia e kulї. - Он бросил собаку. 9. Kua kai ne kulї e mаnu. - Собака ест птицу.
Задание. Переведите на язык ниуэ: (правильность не гарантирую, тем более с артиклями) 1. Мальчик пойдет. To fano e tama 2. Ты съешь собаку. To kai a koe e kulї 3. Джон купался. Ne kоukоu e Sione
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
a. ЛМБТТОЬК ШБТ
КЛАССНЫЙ ЧАС (сдвиг -1)
b. ВЁМПЁ ТПМОЧЁ РФТУЬОЙ
БЕЛОЕ СОЛНЦЕ ПУСТЫНИ (сдвиг -1)
c. РЦЙРГ ТСПСЪЮ
НУЖНА сдвиг -3, или описка или ошибка или так и задумывалось)
2. При использовании шифра перестановки кодирование осуществляется перестановкой букв по одному и тому же правилу. Восстановите слова и определите правила перестановки:
обмен букв 1 и 3, 4 и 6, 7 и 8 если есть
a. НИМАРЕЛ
Минерал
b. ЛЕТОФЕН
Телефон
c. НИЛКЙЕА
Линейка
d. НОМОТИР
Монитор
e. РАКДНАША
Карандаш
3. Используя шифр перестановки из предыдущего задания, закодируйте слова: ГОРИЗОНТ, ТЕЛЕВИЗОР, МАГНИТОФОН
Ригозитн
Летиверзо
Гамтинфоон
Дополнительная задача ( )
Даны фразы на языке ниуэ (древний полинезийский язык) и их переводы на русский язык:
1. Kua kitia e koe a Pule. - Ты видишь Пуле.
2. Tо lеlе е mаnu. - Птица полетит.
3. Kua kоukоu a kоe. - Ты купаешься.
4. Kua fanо a ia. - Он идет.
5. Ne kitia he tama a Siоne. - Мальчик видел Джона.
6. Kua fano e tama. - Мальчик идет.
7. To kitia e Sione a ia. - Джон увидит его.
8. Ne liti e ia e kulї. - Он бросил собаку.
9. Kua kai ne kulї e mаnu. - Собака ест птицу.
Задание. Переведите на язык ниуэ: (правильность не гарантирую, тем более с артиклями)
1. Мальчик пойдет.
To fano e tama
2. Ты съешь собаку.
To kai a koe e kulї
3. Джон купался.
Ne kоukоu e Sione