S:=(k div 100) + ((k mod 100) div 10)+(k mod 10);
Письмо Пете
Грамота
12 меньше 13
Письмо_Пете
Что?
Ура!
Ку-Ку
1. Используя шифр Цезаря, декодировать следующие фразы:
a. ЛМБТТОЬК ШБТ
КЛАССНЫЙ ЧАС (сдвиг -1)
b. ВЁМПЁ ТПМОЧЁ РФТУЬОЙ
БЕЛОЕ СОЛНЦЕ ПУСТЫНИ (сдвиг -1)
c. РЦЙРГ ТСПСЪЮ
НУЖНА ПОМОЧЫ (сдвиг -3, или описка или ошибка или так и задумывалось)
2. При использовании шифра перестановки кодирование осуществляется перестановкой букв по одному и тому же правилу. Восстановите слова и определите правила перестановки:
обмен букв 1 и 3, 4 и 6, 7 и 8 если есть
a. НИМАРЕЛ
Минерал
b. ЛЕТОФЕН
Телефон
c. НИЛКЙЕА
Линейка
d. НОМОТИР
Монитор
e. РАКДНАША
Карандаш
3. Используя шифр перестановки из предыдущего задания, закодируйте слова: ГОРИЗОНТ, ТЕЛЕВИЗОР, МАГНИТОФОН
Ригозитн
Летиверзо
Гамтинфоон
Дополнительная задача (5 баллов)
Даны фразы на языке ниуэ (древний полинезийский язык) и их переводы на русский язык:
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
1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
… ( , . ? - ) :
возможно ещё несколько вариантов