Расстояние преодолеваемое за единицу времени

Question

Информатика: Расстояние преодолеваемое за единицу времени

kamilfox · Accepted Answer

var   s:string;   i:integer; begin   Write( Введите слово: ); Readln(s);   for i:=Length(s) downto 1 do Insert( ,s,i);   Writeln( Результат: ,s) end. Пример решения Введите слово: Паскаль Результат:  П а с к а л ь var   s1,s2,s3:string;   i:integer; begin   Write( Введите первое слово: ); Readln(s1);   Write( Введите второе слово той же длины: ); Readln(s2);   s3:= ;   for i:=1 to Length(s1) do s3:=s3+s1[i]+s2[i];   Writeln( Результат: ,s3) end. Пример решения Введите первое слово: Корова Введите...

MOGZ ответил