не эт то что маленькими and писать как то преподу пофиг мне она во че подчеркнула [I]трпетьей четверти массива[/I]
Writeln ('min=',min:4);
For i:=N div 3 to N-1 Doтут препод докапался
For k:=i+1 to N -1 do
If(F[i]<0) AND (F[k]<0) Thenи вот тут непойму в чем ошибка
if 1/F[i]<1/F[k] then begin
Buf:=F[i];
F[k]:=F[k];
F[k]:=buf;
Delphi
Программа должна разбивать число на множители !!
Например при вводе 16, чтобы разбивало на 2*2*2*2;
14 на 7*2 и подобное !
А то я в недоумении... Или если есть какие-то мысли, а я потом реализую сам...
Должна состоять из функций и процедур.
А и еще должна останавливать вывод ответов через каждые 20 строк. ...
На завтра надо
Натолкните на мыссль как реализовать!
1. Дан текстовый файл. Считая, что количество букв в одном слове не превосходит 20, определить, сколько в файле имеется слов, состоящих из одного, двух, трех и т.д. символов. Результат вывести в другой текстовый файл.