1) г
2) е
3) не розумию вашу мову :) но похоже на Б
4) г
5) авгд
6) бвд
7) авг
8) а2, б5, в4, г1, д3
9) 1г 2б 3в 4д 5а
Var a: string;
i: integer;
begin
readln(a);
for i := 0 to length(a) do
if (a[i] = 'и') then a[i] := 'е';
writeln(a);
<span>end.
Это на Pascal'е =)</span>
Проверка,соответственно,обратным путем
Program P2;// ИМЯ ПРОГРАММЫvar k,s:integer; //РАХДЕЛ ОПИСАНИЕ ПЕРЕМЕННЫХ,ЦЕЛЫЙ ТИП ДАННЫХbegin//НАЧАЛО ПРОГРАММЫs:=0; for k:=1 to 20 do s:=s+sqr(k);writeln('сумма = ',s); readln end.