быстро, удобно, не тратишь бумагу)))) , конверта не надо и тд
<span>var s,s1:string; n,i:integer;
begin
writeln('Введите слово длиной 3n:');
readln(s);
n:=length(s) div 3;
delete(s,2*n+1,n);
s1:='';
for i:=1 to 2*n do s1:=s[i]+s1;
writeln(s1);
end<span>.
Пример:
</span><span>Введите слово длиной 3n:
</span><span>programma
</span>argorp</span>
1 - канарейка (шифр Атбаш)
2 - рейнсворт (шифр Виженера)
3 - болванщик (шифр Хилла)
4 - бармаглот (шифр Виженера)
<span>Frac (15.6) = 0.6 - функция выделяет дробную часть
Trunc(24.9)
= 24 - функция выделяет целую часть
В результате получим 24.6
</span>
1) Костюм;
2) Фон;
3) Алгоритм;
4) Игра;
5) Анимация;
6) Цель;
7) Уровень;
8) Персонаж;
9) Скрипт;
10) Сценарий.
Надеюсь ответ достаточно полон.