1)
var s: string; i: byte;
begin
writeln('Введите строку:');
readln(s);
i:=1;
while i<=length(s) do begin
delete(s,i,1);
insert('a',s,i);
i:=i+2;
end;
writeln(s);
end.
---------------------------------------------
Введите строку:
Меняем нечетные символы на а
aеaяaмaнaчaтaыa aиaвaлa aаaа
---------------------------------------------
2) это задание решено в другом Вашем вопросе
znanija.com/task/22037051
Var
a,b,c:integer;
begin
read(a,b,c);
if a<b then a:=b;
if a>=c then writeln(a) else writeln(c);
end.
Ответ:
Отяаьщшърь беняй, ш фцхый эюьхтпнщ.
Яэьгпнацщяш, сн эьхсыь. Тьа ьы, эюцпнщ!
Эьщбхынчшн - ъыцщ ятош ъбсютдьъ
Ц хныьяецпь фснщ ынрюс ц эьгпнщ
ьяанщйыиг ътеанщ хняьоьл птяац,
Н ьыу ътыш янъц яоцщц я эбац.
(это только часть стиха)
Объяснение:
А=Н Б=О это не сложно но долго. После составления ключ-таблицы мы шифруем стих
Ворд, пайс скрипт, паинт, документ, записаня книжка, блокнот
больше не знаю