Дана строка. известно, что количество символов в строке кратно 3. удалите из слова середину(то есть среднюю треть символов)

Var   s: string;   n: integer; begin   writeln('введите строку с длиной, кратной трем: '); readln(s);   n: =length(s) div 3;   delete(s,n+1,n);   write('результат: ',s) end. тестовое решение: введите строку с длиной, кратной трем: из строки середина будет удалена! результат: из строки ет удалена!

125чел. это 5частей из 7

? чел. это 2 части из 7

 

125 чел. : 5 частей = (100+25): 5=100: 5+25: 5=20+5=25чел. это 1 часть из 7

25чел. х 2части=50 чел. , которые пришли на финиш после 1 часа

 

ответ: 50 чел.

var

  x: real;

begin

  readln(x);

writeln(x: 0: 0);

end.