Результати пошуку

я бы не сказал что первый правильнее.. легче - да.. но вот второй в 3 раза быстрее, по этому как раз лучше второй, моё мнение.. а в идеале конечно вывести формулу и считать быстрее (обычная арифметическая прогрессия)

Минимальная диагональ - часто та, сумма элементов которой минимальная

program xz; uses crt; var s:string[100]; i:integer; begin readln(s); while s[1]=' ' do delete(s,1,1); i:=2; while i<=length(s) do if (s[i]=' ') and (s[i-1]=' ') then delete(s,i,1) else i:=i+1; if (s[length(s)]=' ') then delete(s,length(s),1); write(s); readkey...