Имеется текстовый файл. переписать в другой файл те его строки, в которых имеется более 30-ти символов.

Const   n = 30; var   fin, fout: text;   s: string; begin   assign(fin, 'input.txt');   reset(fin);   assign(fout, 'output.txt');   rewrite(fout);   while not eof(fin) do   begin       readln(fin, s);       if length(s) > n then writeln(fout, s)   end;   close(fin);   close(fout) 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 чел.

как правильно пишется триугольник или треугольник?

  треугольник