Превратить слово рота в полк заменяя одну букву в каждом слове. превратить за 4 слова

Вот короткий пример цепочки, «превращающей»  роту  в  полк:   рота  – роза – поза –пола –полк .) меняем только одну букву. всё просто=)

1) birthday1.asf - 24.12.15 birthday2.asf - 15.07.16 clip_1.mpeg - 24.07.14 clip_2.mov - 24.10.16 clip_3.mov - 01.07.14 family.avi - 12.08.13 friends1.mov - 25.07.14 friends2.mov - 04.01.14 video1.avi - 19.07.14 video2.avi - 21.11.13 video3.wmv - 24.06.14 video4.wmv - 10.07.15 2) birthday2.asf - 15.07.16 clip_1.mpeg - 24.07.14 clip_3.mov - 01.07.14 family.avi - 12.08.13 friends2.mov - 04.01.14 video2.avi - 21.11.13 video4.wmv - 10.07.15 3) family.avi - 12.08.13 video2.avi - 21.11.13 friends2.mov - 04.01.14 clip_3.mov - 01.07.14 clip_1.mpeg - 24.07.14 video4.wmv - 10.07.15 birthday2.asf - 15.07.16 итог : video2.avi - 21.11.13 clip_3.mov - 01.07.14 clip_1.mpeg - 24.07.14 video4.wmv - 10.07.15 birthday2.asf - 15.07.16 ответ: 5

Формулы: с=кв.корень из (а^2+b^2) r=(a+b-c)/2 r=c/2 var    a,b,c,r1,r2: real; begin   write ('введите катет а: ');   readln (a);   write ('введите катет b: ');   readln (b);   c: =sqrt(a*a+b*b);   r1: =(a+b-c)/2; //радиус вписанной окружности   r2: =c/2; //радиус описанной окружности     writeln;   writeln ('r = ',r1: 6: 2);   writeln ('r = ',r2: 6: 2); end. пример: введите катет а: 4 введите катет b: 6 r =   1.39 r =   3.61 ***значения округлены до 2 знаков после запятой